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SUMMARY 


A programmable maintenance processor concept applicable to multiprocessing sys- 
tems has been developed at the NASA Ames Research Center's Dryden Flight Research 
Facility, This stand-alone-processor concept is intended to provide support for 
system and application software testing as well as hardware diagnostics. An ini- 
tial mechanization has been incorporated into the extended aircraft interrogation 
and display system (XAIDS) which is multiprocessing general-purpose ground support 
equipment. The XAIDS maintenance processor has independent terminal and printer 
interfaces and a dedicated magnetic bubble memory that stores system test sequences 
entered from the terminal. This report describes the hardware and software embod- 
ied in this processor and shows a typical application in the checkout of a new XAIDS, 


INTRODUCTION 


In 1979 the NASA Ames Research Center's Dryden Flight Research Facility (Ames- 
Dryden) undertook the development of microprocessor-based, general-purpose ground 
support equipment (GSE) called the aircraft interrogation and display system (AIDS, 
ref, 1). A desire for higher performance later led to the requirement (ref. 2) for 
an extended AIDS (XAIDS) employing multiple 16-bit processors. One XAIDS (ref. 3) 
entered service in 1984, and a second will enter service in 1987. During the defi- 
nition of the XAIDS design, the requirement arose for an independent processor capa- 
ble of supporting both software and hardware testing. This processor became known 
as the maintenance processor (MAINT) and is now one of four processors comprising 
the baseline complement of every XAIDS unit. 

This report focuses on the evolution of MAINT as an essential member of the 
XAIDS processor suite. The configuration of the hardware and software for MAINT 
is described, and software listings are offered as appendixes. Examples of the 
MAINT displays are shown, and an overview of operator procedures is presented. 

The concept is believed to be useful to any multiprocessing system requiring 
independent maintenance support. 


NOMENCLATURE 


AIDS 

aircraft interrogation and 

display system 

Ames-Dryden 

NASA Ames Research Center, 

Dryden Flight Research Facility 

BTO 

bus timeout 


CKI 

command key interpreter 


CRT 

cathode ray tube display 


DMA 

direct memory access 



I/O 

ICE 

LED 

MAINT 

MBM 

MDS 

NMI 

PERPRO 

PCI 

PIC 

PIT 

PPI 

PROM 

RAM 

SBC 

SBX 

SDB 

V/V 

XAIDS 


input/output 
in-circuit emulator 
light-emitting diode 
maintenance processor 
magnetic bubble memory 
microcomputer development system 
nonmaskable interrupt 
peripheral processor 

programmable communications interface 
programmable interrupt controller 
programmable interval timer 
programmable peripheral interface 
programmable read-only memory 
random access memory 
single-board computer 
single-board expansion 
system debugger 
verification and validation 

extended aircraft interrogation and display system 

BACKGROUND 


During the research and development of the original AIDS design, there was no 
convenient way to gain access to the AIDS internal system bus for troubleshooting or 
for AIDS software testing. In the early stages of AIDS development, an in-circuit 
emulator (ICE) was heavily used as a software debugger and hardware checkout tool. 
This required the external support of a microcomputer development system (MDS) which 
had an in-circuit emulator installed. This configuration was not convenient in the 
lab and was totally unsuitable in the hangar when the AIDS was in service. 

Several alternate approaches were considered for the final AIDS configuration, 
but lack of free cardcage slots and limited memory space greatly reduced the number 
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of options available. The approach finally selected was a separate embedded monitor 
package stored in an alternate set of programmable read-only memory (PROM) chips. 
This monitor has access to all of the processor's on-board input-output (I/O) and 
memory, in addition to the entire system bus including I/O and memory domains. The 
desired PROM set (operating system or monitor) was selected by a front panel switch 
that automatically generated a system reset whenever a change of PROMs was made. 
Activating the monitor package, therefore, dumped the user's software and prevented 
any real-time software-related operations whatsoever. Nevertheless, this monitor 
did prove useful in analyzing hardware and for that purpose was certainly more con- 
venient than an emulator. 

When the 16-bit XAIDS development began, it soon became apparent that the number 
of support options had increased considerably. For the 8086 microprocessor, there 
are several monitor packages available as well as in-circuit emulators. All are 
designed to support software debugging but may be used to examine and modify exter- 
nal subsystems mapped to the system bus. The operating system used on the XAIDS 
offers both an on-line dynamic debugger and a static system debugger. Both of these 
are designed to examine operating system objects such as tasks, mailboxes, and mes- 
sages. The dynamic debugger permits object examination while the system is running; 
the static debugger stops the system (on either operator command or error condition) 
and becomes an extension of the monitor firmware. The latest XAIDS operating system 
configuration employs a system debug monitor plus a system debugger. The dynamic 
debugger was not included since experience had shown that a debugger was only 
required during configuration (system generation), and the static SDB would be 
adequate for that purpose. 

For most multiprocessing systems, a similar variety of tools is usually avail- 
able to the system designer. In the case of XAIDS, however, the available software 
did not allow independent access to the XAIDS bus while I/O job software was execut- 
ing under control of the operating system. This requirement resulted in a separate 
so-called maintenance processor being included in the baseline XAIDS design. Such 
stand-alone hardware can be an asset in any multiprocessing system where a diagnos- 
tic tool independent of the operating system is required. 


EVOLUTION OF XAIDS MAINT 


The basic XAIDS design involves a tightly mapped environment with numerous dual- 
port memories and I/O domain hardware elements, all mapped to a common system bus. 
Applications of MAINT include bus mapping checks during system build, functional 
testing of subsystems, and aid to software verification and validation (V/V) by 
permitting detailed examination of software mailboxes used for interprocessor com- 
munications. The main functional requirement for MAINT is to be able to police 
memory and I/O by giving the operator independent read and write capability in both 
domains. A secondary functional requirement is to independently monitor activity 
of the eight interrupt lines on the system bus. The early operational requirements 
included ability to function with any ASCII terminal regardless of baud rate, and 
the goal that operator keyboard protocols require the fewest possible keystrokes. 

The early MAINT configuration involved a single board computer installed in 
the XAIDS cardcage hosting a simplified monitor resident in PROM, with the operator 
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interface provided via a separate terminal connected to the rear of the XAIDS con- 
sole, The detailed requirements for the early MAINT configuration were 

— independent 16-bit memory segment selection, 

— 20-bit addressing in memory mapped domain, 

— 16-bit addressing in I/O mapped domain, 

— both 8- and 16-bit operations in both domains, 

— both read and write operations in both domains, 

— single keystroke repeat feature on read operations, 

— byte sequential memory substitute operations, 

— byte, word, and double-word memory fill operations, 

— job buffer for test requiring multiple operations, 

— job buffer editor allowing delete, append, and erase, 

— eight bus interrupt counters displayed on demand, and 

— nonmaskable bus timeout interrupt to prevent hangup. 

Many of the features normally found in a monitor are missing: register manipula- 

tion, software loading, and execution control. These features are of benefit only 
within the processor executing the application software. 

The MAINT installed in the XAIDS brassboard in the Ames-Dryden XAIDS laboratory 
was used extensively in support of XAIDS system and user software V/V, In addition, 
the brassboard MAINT has been quite useful in checking out new user boards, espe- 
cially custom-engineered boards. The MAINT installed in the first production XAIDS 
received considerable use during system build and during several user software 
installation cycles. During two years of operation, the early MAINT configura- 
tion proved to be an invaluable tool, but several areas for possible improvement 
became evident. 

The concept of a job buffer containing a sequence of assorted operations proved 
to be a valuable feature of MAINT, however, the original mechanization was inade- 
quate in two ways. The first inadequacy was volatility because the buffer was 
mapped into random access memory (RAM), To make a hardware configuration change 
during testing of a new board, it is necessary to power down the system because 
boards cannot be either inserted or removed with power applied to the cardcage. 
Therefore, whatever job may have been created was lost and had to be entered again 
when the system was powered up. This lowered operator productivity with wasteful 
repetitive keyboard operations, A second inadequacy was the limitation to a single 
job buffer; frequently it was found desirable to have several jobs existing simulta- 
neously. Combining these two aspects of the problem indicated a need for a separate 
nonvolatile memory of some sort, partitioned into multiple job files. 



A shortcoming in the data readout format became evident when the MAINT was used 
in a software V/V support role requiring data areas in dual-port memories to be dis- 
played, Most of the data in the XAIDS software suite is other than type BYTE; com- 
monly used types are WORD, DWORD, POINTER, and ASCII, The display of these higher- 
order data types as fragmented byte arrays makes reading the data difficult, and 
this in turn lowers operator productivity. Thus a need arose to permit the oper- 
ator to specify the desired data type for MAINT operations, 

A variety of terminals has been employed ranging from 300-baud printing ter- 
minals to 19200-baud cathode ray tube (CRT) terminals. For some types of testing, 
the printing feature of some slower terminals was a requirement for record keeping 
purposes, however, the low baud rate reduced the speed at which tests could be per- 
formed, Because of this, a higher baud rate CRT- type terminal was normally employed, 
but on some occasions the need for hardcopy would unexpectedly arise. This experi- 
ence underscored the need for a means to produce hardcopy selectively while using a 
CRT terminal. 

In mid-1986 the decision was made to upgrade the MAINT processor in the brass- 
board and also in the XAIDS, then under development. The memory device selected was 
a magnetic bubble memory (MBM) that provides the proper capacity and speed for this 
application. The printer interface selected was the Centronix- type parallel stand- 
ard. The supplemental requirements for the MAINT upgrade were 

— MBM partitioned into 100 job files with a title for each, 

— job files grouped as 10 decades of 10 jobs each, 

— job directories show file titles by decades (0 thru 9), 

— job editor can load, modify, or save any of 100 files, 

— job execution within decade invoked by single keystroke, 

— MBM backed up to an external RAM buffer, 

— MBM restored from an external RAM buffer, 

— memory writes to single address in BYTE or WORD format, 

— memory fills in BYTE, WORD, DWORD, or ASCII format, 

— memory reads in BYTE, WORD, DWORD, POINTER, or ASCII, 

— I/O fill outputs a constant value to a range of ports, 

— I/O operations may be in BYTE or WORD format, 

— printer interface is Centronix- type parallel standard, and 

— screen image snapshots buffered for printer output. 
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HARDWARE CONFIGURATION 


The XAIDS MAINT is a single-board computer (SBC) employing an 8086-2, 16-bit 
microprocessor operating at an 8 MHz clock rate. It is configured with 8 Kbytes 
of static RAM, four 2732A PROMs (16 Kbytes), and a piggyback MBM module. As shown 
in figure 1, the 128-Kbyte MBM piggyback is installed at the single-board expansion 
( SBX ) bus J4 connector position. For this application the MBM has its jumpers con- 
figured for the polled mode of operation so that no interrupts or direct memory 
access (DMA) operations are involved. 

The serial interface for the terminal is controlled by the 8251 A programmable 
communications interface (PCI) chip on the 86/05 board. The PCI, plus its inter- 
facing driver and receiver chips, are configured for full duplex RS-232 in data-set 
mode. Any baud rate from 110 to 19,200 may be software-selected using the clock 2 
output from the 8253 programmable interval timer (PIT) chip. 

The printer interface is controlled by the 8255A programmable peripheral inter- 
face (PPI) chip on the 86/05 board. Port A is configured for output through an 8287 
driver chip supplied on the board and controls the eight printer data lines. Port C 
bits PC0-PC3 are configured for output through a 7408 driver chip. Bit PC0 is used 
to control the printer strobe signal, while bit PC 3 is used to control the light- 
emitting diode (LED) mounted on the 86/05 board. Port C bits PC4-PC7 are config- 
ured for input using one SBC-902 terminator chip containing four 1000-Ohm pullup 
resistors. Bit PC4 is to used for the printer select signal, bit PC6 is used for 
the printer acknowledge signal, and bit PC7 is used for the printer busy signal. 

Port B is not used but is configured with two SBC-902 terminators. 


SOFTWARE DESCRIPTION 


The software for MAINT is produced on the XAIDS brassboard system installed in 
the Ames-Dryden XAIDS laboratory. This software is written in PLM86 programming 
language and is broken into four separate modules: a main program, interrupt rou- 

tines, line printer routines, and MBM routines. These modules are separately com- 
piled using the COMPACT and OPTIMIZE{3) controls that minimize the size of the 
resulting code segments. The four object files produced by the compiler are then 
linked together and located using the utilities LINK86 and LOC86. The utility L0C86 
is invoked using controls that cause it to generate the PROM bootstrap instruction, 
the register initialization code sequence, and the main program entry instruction. 
Thereafter PROM programming software is used first to create PROM files from the 
L0C86 output, and then to program the four 2732A PROMs on a universal programmer. 
Appendix A shows the submit file used to automate linking, locating, and PROM file 
generation; also included are the print files produced by LINK86 and LOC86. 

Appendix B shows the compiler list file for the source module MAINT. P86 con- 
taining the main program and a number of supporting routines. The main program 
first performs initializations of RAM, interrupts, line printer, serial interface, 
edit buffer, and MBM. After showing the sign-on and command menu, the main pro- 
gram then enters a looping top-level command key interpreter (CKI). The CKI first 
gives the operator one of two prompts: an arrowhead if the job buffer is being 
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edited , otherwise, a period. The CKI then accepts any one of the following com- 
mand keystrokes: 


H shows help page 

0-9 executes MBM job file d0-d9 from current decade d 

M invokes memory servicing routine 

I invokes I/O servicing routine 

J invokes job servicing routine 


R 

S 

<space> 
Ccntl C> 
<cntl B> 
<cntl R> 
<return> 
<esc> 


displays interrupt tally counters 
selects new memory segment 
repeats last operation 
exits job buffer append mode 
invokes MBM backup routine 
invokes MBM restore routine 
shows command menu 

reinitializes MBM and shows sign-on 


Three special keystrokes are intercepted by the terminal I/O routines included 
in MAINT.P86. The <cntl P> keystroke sets a flag indicating that the operator wants 
to dump the current screen image to printer. During a memory or I/O read operation, 
the operator may halt the screen display using ccntl S> and restart it with Ccntl Q>. 
In a special category is the Cesc> key which serves two uses in addition to those 
shown previously. During a memory or I/O read operation, cesc> causes an abort and 
return to the CKI. Another use of cesc> is recognized by most command- servicing 
code sequences. Because CKI command servicing (usually) requests additional key- 
strokes from the operator to complete the setup of the command line, the Cesc> key 
is interpreted at such times as an abort request. 


A MAINT job file is a block of ASCII text that may exist either as one of 100 MBM 
files or in the job buffer used for editing. Job files always take the form shown 
in figure 2; they are 1,280 bytes in length and consist of a title plus a command 
sequence. The title may be up to 63 characters long and is always delimited (termi- 
nated) by an ASCII NUL character (a zero byte). The command sequence may be up to 
1,215 characters in length and is broken into command lines, each delimited by a 
<return> character. The end of the sequence is delimited by a byte containing all 
ones. Within the MBM, the 100 job files are mapped, as shown in figure 3. The MBM 
is configured by software to a granularity of 64 bytes per block using error correc- 
tion. A job file thus occupies 20 blocks, 100 files occupy 2,000 of the available 
2,048 blocks, and the top 48 blocks are not used. 
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The routine titled J$CMD, one of the major command servicing routines in 
MAINT.P86, handles all operations related to job files. These operations are: 
selecting an MBM job file decade, displaying the ten job titles for the currently 
selected decade, executing an MBM file from the current decade, executing the con- 
tents of the job buffer, and handling several job buffer editing functions. The 
job buffer editor in turn has an internal command interpreter permitting the oper- 
ator to perform two categories of operations. First of all, the editor performs 
two important MBM-related operations: loading any one of the 100 MBM files into 

the job buffer and saving the job buffer contents as a new (overwritten) MBM file. 

In addition, the editor allows the following job buffer modifications: erasing the 

title block and command sequence, inserting a new job title, deleting a designated 
command line from the command sequence, and appending command lines to the end of 
the command sequence. While in the append mode, command lines are executed indivi- 
dually as entered. The ccntl C> character forces an exit from the append mode. 

The CKI recognizes two infrequently used special characters that do not appear 
in the menu or on the help page: Ccntl B> to create an MBM backup file and Ccntl R> 
to restore the contents of the MBM from an MBM backup file. Backup file operations 
are done by means of an external 64-Kbyte RAM buffer mapped at addresses 0B0000H 
through OBFFFFH. This buffer shown in figure 4 is structured and copied to and 
from the desired hard disk file using utilities created at Ames-Dryden. The header 
is a 128-byte block filled with a bit pattern that uniquely identifies the file as 
an MBM backup file. The directory consists of 100 pairs of WORD arguments which 
indicate the position and length of each job file in the body portion of the backup 
file. When a backup file is to be created, the operator must first specify whether 
all decades or only selected decades are to be backed up. The desired decades are 
then scanned and each nonempty MBM file is copied to the backup file buffer in con- 
densed form such that the unused portion of the job's command sequence block is 
truncated. Since normally far less than half of a job's command sequence block is 
ever used, the entire 128-Kbyte MBM is easily backed up in 64-Kbytes. When the MBM 
is restored from a backup file, only those jobs present (nonzero length) are written 
into the MBM. 

Appendix C shows the compiler list file for the source module LP.P86 that contains 
all the servicing routines for the line printer. The routine INITIALIZES PRINTER sets 
up the PPI control register, places the printer in the on-line state, resets the state 
variable PTRFLG, and initializes the buffer CRT$LINE that contains the screen image. 
The routine PRINTERS BUFFER is called whenever a character is written to the terminal 
so that the same character may be placed in CRT$LINE. The routine PRINTERSSNAPSHOT 
checks whether a ccntl P> has been entered; if so, it copies CRT$LINE to a second 
buffer called PTR$LINE and changes PTRFLG to indicate that PTR$LINE is ready. If 
the printer is off-line ( PTRFLG=0 ) or if the previous dump is still in progress 
( PTRFLG>1 ) , the Ccntl P> is ignored. The routine PR INTERS SERVICE is called from all 
wait loops and thus serves as the background task for managing the dump of PTR$LINE 
to printer. This routine is controlled by PTRFLG that iterates through several 
states to properly position two snapshots on each 1 1 -inch page. 

Appendix D shows the compiler list file for the source module RUPTS.P86 
that contains all the servicing routines for MAINT interrupts. The routine 
INITIALIZE? INTERRUPTS loads the 256 interrupt vectors, sets up various program- 
mable interrupt controller (PIC) registers, unmasks the eight PIC interrupt inputs, 
clears the edge-triggered flip-flop, and enables interrupts. The eight bus inter- 
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rupts are serviced as interrupts 32 to 39 using the PIC while the bus timeout (BTO) 
interrupt is serviced as interrupt 2 using the nonmaskable interrupt (NMI) pin on 
the 8086. These nine routines each increment individual counters while the remain- 
ing 247 interrupts are not used and share a common counter. The BTO interrupt rou- 
tine also sets two flags, one in MAINT called BTO?FLAG, and the other externally in 
the XAIDS peripheral processor (PERPRO). BT0$FLAG is used by various CKI servicing 
routines to terminate read or write operations whenever BTO occurs. The PERPRO flag 
causes a bell signal at the main operator* s terminal and flashes a BTO warning LED 
on the console. 

Appendix E shows the compiler list file for the source module MBM.P86 that con- 
tains all the servicing routines for the iSBX-251 MBM. The routine INITIALIZE?251 
sends two commands to the MBM controller chip: command 9 first aborts any opera- 
tions that may be in progress, and command 1 then performs a complete initialization 
of the controller. INITIALIZE?251 also writes a message to the terminal that informs 
the operator of the outcome of the initialization. The routine READ? 251 is typed 
BYTE and performs all read operations from MBM to RAM, returning the success/fail 
status of the operation. It requires three arguments: a WORD specifying the num- 
ber of blocks to be read, a WORD specifying the initial block, and a POINTER to the 
destination buffer. The routine WRITE?251 transfers the contents of the job editor 
buffer to the MBM; a single byte argument specifies the file number (0-99). 

Four important supporting routines are used locally within MBM.P86 : SETUP?251 , 

COMMAND?251 , EXECUTE? 251 , and COMPLETE? 251 . SETUP$251 merely loads up several regis- 
ters in the MBM controller chip and is therefore not a typed routine. However it 
does require two WORD arguments specifying the number of blocks involved for the 
forthcoming operation and the first block to be transferred. The remaining three 
routines are typed BYTE and return the success/fail status of the requested opera- 
tion; error messages are displayed on the terminal whenever an operation fails. 
COMMAND? 251 requires a single BYTE argument specifying the desired command; 

EXECUTE? 251 and COMPLETE?251 require no arguments. 

Several routines in MBM.P86 have a timeout feature that aborts the routine if 
excessive time is used for a particular operation. This prevents, for example, a 
hangup if the number of bytes transferred to or from the MBM does not exactly match 
the expected value. Whenever such a timeout occurs, the routine writes an appro- 
priate message to the terminal, the INITIALIZE$25 1 routine is called, and a fail 
status is returned where applicable. 


EXAMPLES OF TYPICAL OPERATIONS 


To use MAINT, a separate RS-232 terminal is required that is connected to the 
system interface panel inside the XAIDS rack (accessable from the left rear door). 
This terminal may employ any baud rate in the range 110 to 19,200. When the XAIDS 
is powered up, the MAINT firmware enters a lockon loop that senses one or two capi- 
tal letter *U* keystrokes to determine the baud rate. The program then displays a 
command menu that includes a 'Help* command, whereupon the operator may perform any 
desired memory or I/O operation. The examples given in this section were generated 
on an XAIDS unit under development in the XAIDS laboratory. The terminal used was 
a standard CRT with the baud rate set to 19,200. The displays cited were dumped 
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to a line printer and are presented in the exact order in which the operations 
were performed. 

The system was powered up and an uppercase <U> was entered on the keyboard. 
Display 1 shows the CRT screen as it appeared following baud rate lockon. A similar 
display (without the baud rate message) will be generated by the TLCI whenever <esc> 
is entered. Display 2 shows the result of entering the <H> command at this point. 
This help page may be called up at any time; if called while the job editor is in 
append mode, the H command is purged from the job buffer. 

Display 3 shows a sequence where the operator wishes to examine the contents of 
an existing MBM file known only by the title: "Scan PERPRO RAM". The first step is 

to determine the file number by selecting decades and examining job titles until the 
file is found. Job decade 0 was selected first by entering <J> <0> and file 00 was 
identified as being the one we wished to examine. Next the job editor was invoked 
by entering <J> <E>; calling up the editor always produces a listing of the job cur- 
rently in the job buffer. Since in our case the job buffer was empty, the file num- 
ber is ??, the title is blank, and no command lines are present. Next the desired 
file was loaded into the buffer by entering <L> <0> <return>. The file is seen to 
contain a two line command sequence consisting of the selection of segment C000 fol- 
lowed by a Memory Read Byte 4000 to 7FFF. Finally, the job editor was exited by 
entering <esc>. 

Display 4 shows the result of partial execution of file 00, complete execution 
of files 01, 02, and 03, and finally attempted execution of empty file 04. Since 
the selected decade was already 0, file 00 was executed by simply entering <0>. it 
was quickly aborted using the <esc> key and the TLCI prompt again appeared. There- 
after <1> was entered followed by <2>, <3>, <4>, and <cntl P>. This example demon- 
strates the ease with which several jobs within a decade can be quickly performed in 
succession with a minimum of keystrokes. 

Display 5 shows an example of the use of the job editor to create a temporary 
job in the job buffer. The case assumed a desire to display the first 16 bytes of 
PERPRO RAM which falls in the address range C4000 to C400F. First the job editor 
was entered and job 00 is discovered already stored there. The existence of the 
file number on the screen guarantees that it is indeed a duplicate of the contents 
of MBM file 00, either loaded from MBM and left undisturbed, or created by the edi- 
tor and recently written to MBM file 00 (the former in our case). The job buffer 
was erased by entering <E> followed by <Y>, and the append mode was engaged by enter- 
ing <A> • The segment C400 was selected by entering <S> <C> <4> <0> <0> <return>, 

thus creating a new line 1 in the job buffer. A new line 2 was created by entering 

<M> <R> <B> <0> <return> <F> <return>, which executed a dump of the desired block of 

PERPRO RAM. Finally append mode was terminated by entering <cntl C> and the editor 
was exited by entering <esc>. Temporary jobs such as this remain undisturbed as 
long as the editor is not used to alter the job buffer. 

Display 6 shows the result of executing the contents of the job buffer five 
times: first by entering <J> <space> and then by entering <space> four times. Each 

time the buffer is executed, the job file number and title are first displayed, fol- 
lowed by the actual execution of the command lines. In our case the file number is 
missing and the title is blank. Select segment command lines in jobs are executed 
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but never displayed; the selected segment is always displayed during execution of 
memory- related operations. 

Display 7 shows an example of a somewhat more lengthy job buffer and its execu- 
tion. The job consists of eight lines involving an assortment of memory operations 
and was created similarly to the steps described for Display 5. The display snapshot 
shows the results of the following steps: (1) the job editor was entered to examine 

its contents, (2) the editor was exited using <esc>, and (3) the job buffer was exe- 
cuted using <J> <space>. The job demonstrates the use of the memory fill byte (MFB), 
memory read byte (MRB), memory substitute (MS), and memory read ASCII (MRA) commands. 

Display 8 shows an MBM backup operation where only a few selected decades were 
backed up. The CKI command <cntl B> was entered first, then the subsequent queries 
were answered in the sequence <y> <n> <0> <2> <6> <return>. All nonempty files pre- 
sent in the three selected decades were copied to the external buffer, and last, the 
backup file directory was created. Such backup (as well as restore) operations can 
be done only when the XAIDS is not executing a user I/O job. This is because it is 
necessary to write the MBM backup buffer contents to a hard disk file for permanent 
storage using a utility program called "SAVE* 1 • A companion utility called "LOAD” is 
used to copy a MBM backup file into this same buffer so that the CKI command <cn tl R> 
can restore whatever files are present back into the MBM. 

Display 9 shows a few examples of I/O read operations. First <return> was 
pressed to display the command menu. This was followed by the selection of job dec- 
ade 2 by entering <J> <2>. Last, jobs 25, 26, and 27 were executed by entering <5> 
<6> <7> • All three of these jobs are of the I/O read-byte (IRB) type. The 16-bit 
I/O address is displayed at the start of each line with the label M I/0 M prefixed to 
clearly distinguish them as I/O readouts and not memory readouts. 


CONCLUDING REMARKS 


A stand-alone maintenance processor for a multiprocessing system was developed 
at Ames-Dryden and placed in service supporting system software V/V and hardware 
diagnostics. The latest mechanization provides an independent terminal interface, 
a line printer interface, and a magnetic bubble memory for nonvolatile storage of 
often-used job sequences. The software suite includes a large set of data display 
formatters, routines for snapshot x^r Inter dumps of terminal displays, file manage- 
ment routines for storage and retrieval of 100 job files, and routines for backup 
and restoration of the entire contents of bubble memory. 

The major contribution of the maintenance processor concept was improved effi- 
ciency in testing of system hardware and software. Experience to date with the 
magnetic bubble memory indicates that it has adequate speed and is very reliable, 
making this type of nonvolatile memory ideally suited for this application. The 
ability to selectively hardcopy screen displays further speeded testing opera- 
tions. Only off-the-shelf commercial hardware was used, resulting in a highly 
cost-effective subsystem. 

The author believes that where suitable hardware and space is available, a 
highly useful stand-alone processor configured along these lines could be easily 



desiqned or retrofitted into most no] ti processing systems- Although such a resource 
does remain idle most ot the time, it is never the 1 ess invaluable when needed (usu- 
ally on short notice) to access bus-mapped memory or hardware tor whatever reason. 


National Aeronautics and Space Administration 

Aucs Research Center 

Drydcn Fliyht Research Facility 

Ldwards , California, June 3, 1387 
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APPENDIX A 


Piles MAINT.CSD, MAINT*MP1 , and MAINT.MP2 

MAINT.CSD is a command sequence definition file (or simply, SUBMIT file) that 
is invoked by the operator using the RMX86 command line "SUBMIT MAINT. " The SUBMIT 
utility adds the " .CSD" extension, fetches the MAINT.CSD file, and submits commands 
therefrom as if they were entered by the operator line by line. The final six lines 
of this file relate to the PROM programming phase which is handled separately. 

MAINT.MP1 is the print file produced by the LINK86 utility as it links the 
four object files specified in the SUBMIT file to create the composite file 
called MAINT.LNK. 

MAINT.MP2 is the print file produced by the L0C86 utility as it locates 
MAINT.LNK to create the absolute file MAINT. 

No listing is produced by the iPPS software as it dissects the MAINT file 
into the two PROM files MAINT. LO and MAINT. HI. 



/ File MAINT.CSD 


14 January 1987 R. D. 8 1 ov<=); 


/ Submit file for creatine* PROM files fur XAJBS Meintt?n»rice Processor 


de l ete ma i n t . I nk / maint/ ma i n t . me # 


Jink86 msint.ob.i/ & 

rupts.obJ/ & 

mbm.obJ/ & 

Ip.obJ/ & 


Main program + terminal routines 
Interrupt support routines 
Magnetic bubble memory routines 
Line printer routines 
PLM library routines 


: I an s* sp I m8<S . lib & 

to maint. Ink pr i nt Cma i nt . ir<p 1) 


I ocB6 meint.lnk to maint & 

order (c l asses (data /stack /code) ) & 

in i tcode(OfffdOh) A 

addresses (c I asses (data (400h> / code (Of cOOOh) ) ) i, 
obJeo tcontro I s (purse) & 

pr i nt (mai nt . mp2) & 

pr i ntcontro 1 s (nopur Se) & 

s y mbo I c o l umn s ( 3 ) & 

bootstrap 


delete maint. I o/ maint. hi 

i pps 
I h 86 

format ma i nt (Of cOOOh / Of f f f fh) 
3 

n 

4U* 

1 

0 to maint. I o 

1 to maint. hi 


ex i t 


} Invoke JPPS and perform following : 
/ in it hex 8 6 

J type 2732a 

/ copy maint. I o to prom 

/ copy maint. hi to prom 

/ exit 
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i KMX 86 8086 LINKER# 02.5 


INPUT FILES: HAINT.OBJ/ RUPTS.OBJ# HBM.OBJ# LP.OBJ# :LANG:PLH86.LIB 

OUTPUT FILE: HAINT.LNK 

CONTROLS SPECIFIED IN INVOCATION COMMAND: 

PRINT (MAINT.NP1) 

BATE: 01/14/B7 TIME: 10:23:13 


LINK MAP OF MODULE MAINT-P86 


LOGICAL SEGMENTS INCLUDED: 


LENGTH ADDRESS ALIGN 

SEGMENT 

CLASS 

OVERLAY 

3705H 

6 

CODE 

CODE 


1B5CH 

H 

DATA 

DATA 


00B6H 

N 

STACK 

STACK 


OOOOH 

M 

MEMORY 

MEMORY 


00FJ0H B0000H 

A 

(ABSOLUTE) 



0170H B0080H 

A 

(ABSOLUTE) 



rim D 0210 H 

A 

(ABSOLUTE) 



0400H OOOOOH 

A 

(ABSOLUTE) 



0001H C701EH 

A 

(ABSOLUTE) 



OOOOH 

G 

??SEG 




INPUT MODULES INCLUDED: 

MAINT. OBJ (MAINT.P86) 

RUPTS.OBJ (RUPTS.P86) 

MBM. OBJ (MBH-P86) 

LF.0BJdP.P86J 

:LANG:PLM86.LIB(LQJ)H0RD-HULTIPLY) 


ORiq 


Or 


IN A T 


Poo R 


Q u. 


OR 


IS 





iRMX 86 8086 LOCATER. V2.5 


INPUT FILE: MAZNT.LNK 
OUTPUT FILE: HAINT 

CONTROLS SPECIFIED IN INVOCATION COHMAND: 

TO HAINT ORDER (CLASSES (DATA /STACK; CODE)) INITCODE'. 

OFFFDOH) ADDRESSES (CLASSES (DATA (400H) >CODE(OFCOOOH) ) ) OBJECTCONTROLS (PURGE) 
PRINT (HAINT. HP2) PRINTCONTROLS (NOPURGE) STHB0LC0LUHNS(3) BOOTSTRAP 
DATE: 01/14/87 TINE: 10:23:30 


SYMBOL TABLE OF NODULE MAINT.PB6 


BASE 

OFFSET TYPE SYMBOL 

BASE 

OFFSET TYPE SYMBOL 

BASE 

OFFSET TYPE SYHBOL 

0040H 

0C08H 

PUB 

BT0FLA6 

0040H 

0560H 

PUB 

EBITBUFFER 

0040H 

OBEOH 

PUB 

INTCOUNTER 

0040H 

0BC8H 

PUB 

KEY 

0040H 

OCOOH 

PUB 

NMI COUNTER 

0040H 

0C04H 

PUB 

UNKNOHNCOUNTER 

FCOOH 

16F0H 

PUB 

HEX1 

FCOOH 

1707H 

PUB 

HEX2 

FCOOH 

32F8H 

PUB 

INITIALIZE251 

FCOOH 

303FH 

PUB 

INJTIALIZEINTERR 

-UPTS 

FCOOH 

3460H 

PUB 

INITIALIZEPRINTE 

-R 

FCOOH 

36F0H 

PUB 

LOHQRDJiUL 

FCOOH 

3489H 

PUB 

PRINTERBUFFER 

FCOOH 

3SA3H 

PUB 

PRINTERSERVICE 

FCOOH 

353DH 

PUB 

PRINTERSNAPSHOT 

FCOOH 

3371H 

PUB 

READ251 

FCOOH 

1658H 

PUB 

WRITE 

FCOOH 

33DEH 

PUB 

HRITE251 


MEMORY MAP OF MODULE HAINT.PB6 

MODULE START ADDRESS PARAGRAPH * FFFDH OFFSET = 0006H 
SEGMENT MAP 

START STOP LENGTH ALIGN NAME CLASS OVERLAY 


OOOOOH 

003FFH 

0400H 

A 

(ABSOLUTE) 


00400H 

01FSDH 

1B5CH 

H 

DATA 

BATA 

01F5CH 

01FE1H 

0086H 

U 

STACK 

STACK 

BOOOOH 

B007FH 

0080H 

A 

(ABSOLUTE) 


B0080H 

B020FH 

0190H 

A 

(ABSOLUTE) 


B0210H 

BFFFFH 

FDFOH 

A 

(ABSOLUTE) 


C701EH 

C701EH 

0001H 

A 

(ABSOLUTE) 


FCOOOH 

FF704H 

3705H 

6 

CODE 

CODE 

FF710H 

FF710H 

OOOOH 

6 

??SE6 


FFFDOH 

FFFEBH 

0019H 

A 

??L0C86JNITC0 

-BE 

CODE 

FFFFOH 

FFFF4H 

0005H 

A 

(ABSOLUTE) 


FFFF6H 

FFFF6H 

OOOOH 

H 

MEMORY 

MEMORY 


GROUP HAP 

ADDRESS GROUP OR SEGMENT NAME 


FCOOOH CGRGUP 


CODE 


00400H DGROUP 

original page is 
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APPENDIX B 


File MAINT.P86 

The following listing shows the PLM86 source language for the module containing 
the MAINT main program, a set of command servicing routines, plus a set of terminal 
I/O routines. These are bundled into a single module since they are tightly coupled 
through numerous common variable declarations. This module declares PUBLIC the fol- 
lowing variables and procedures: 

KEY a BYTE variable which contains the most recent 

operator keystroke. 

EDIT$BUFFER a 1280 BYTE array which contains the job created by the 
job editor. 

WRITE a PROCEDURE with a POINTER argument that identifies an ASCII 

string (null delimited) to be written to the terminal. 

HEX1 a PROCEDURE with a BYTE argument whose lower nibble is to be 

written to the terminal as one hexadecimal character. 

HEX2 a PROCEDURE with a BYTE argument to be written to the terminal 

as two hexadecimal characters. 
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iRHX B4 PL/M-B4 V2.7 COMPILATION OF MODULE MAINTJ>86 
OBJECT MODULE PLACED IN MAINT.OBJ 
COMPILER INVOKED BY: :LANG:PLM86 MAINT.P84 


{COMPACT ROM NOINTVECTOR OPTIMIZE (3) 

tTITLE('NASA/ADFRF XAIDS MAINTENANCE PROCESSOR PROGRAM 14 JAN 1987') 

/* NASA AMES DRYDEN FLIGHT RESEARCH FACILITY »/ 

/* Extended Aircraft Interrogation 4 Display Sestet (XAIDS) */ 

/» Maintenance Processor (MAINT) prosraa including line printer •/ 

/» and SBX2S1 Bubble Menory Multinodule support. •/ 

/» Written by Richard D. Glover; Research Engineering Division */ 

1 MAINT _P84: DO i 

/* EXTERNAL ROUTINES DECLARATIONS */ 

2 2 INITIALIZEt INTERRUPTS : PROCEDURE EXTERNAL i END ; 

4 2 INITIALIZEIPRINTER: PROCEDURE EXTERNAL ; END ; 

4 2 PRINTERSSNAPSHOT : PROCEDURE EXTERNAL i EH> I 

8 2 PRINTERtSERVICE: PROCEDURE EXTERNAL I DID t 

10 2 PRINTER* BUFFER : PROCEDURE (CHAR) EXTERNAL ) DECLARE CHAR BYTE « END J 

13 2 INITIALIZER: PROCEDURE EXTERNAL i END ; 

15 2 WRITER : PROCEDURE (FILE) EXTERNAL i DECLARE FILE BYTE i END i 

18 1 READR: PROCEDURE (HBLOCKS;START;PTR) BYTE EXTERNAL ; 

19 2 DECLARE (NBLOCKS; START) WORD; PTR POINTER ; END ! 

/« EXTERNAL BACKUP/RESTORE BUFFER DECLARATIONS »/ 

21 1 DECLARE BACKUPIRESTOREtBUFFER LITERALLY 'OBOOOOH' i 

22 1 DECLARE HDR (32) DWORD AT (BACKUPIRESTOREtBUFFER+OOO) ; 

23 1 DECLARE DIR (100) STRUCTURE (INDEX WORD; LENGTH WORD) 

AT (BACKUP$REST0RE$BUFFER*128) ; 

24 1 DECLARE INFO (45008) BYTE AT (BACKUP$REST0REtBUFFER+528) ; 

/» SBC 84/05 BOARD I/O PORT MAPPING »/ 

25 1 DECLARE PPIA LITERALLY '0C8H' ) /* PROGRAMMABLE PERIPHERAL INTERFACE */ 

24 1 DECLARE PPII LITERALLY 'OCAH' J 

27 1 DECLARE PPIC LITERALLY 'OCCH' i 

28 1 DECLARE PPIFLG LITERALLY 'OCEH' ; 

29 1 DECLARE PITO LITERALLY 'ODOH' J /» PROGRAMMABLE INTERVAL TIMER */ 

30 1 DECLARE PIT1 LITERALLY '0D2H' J 

31 1 DECLARE PIT2 LITERALLY '0D4H' I 

32 1 DECLARE PITMOD LITERALLY '0D4H' ; 

33 1 DECLARE USDATA LITERALLY '0D8H' ! /* USART »/ 

34 1 DECLARE USFLAG LITERALLY 'ODAH' ; 

/» I/O STATUS FLAGS */ 

35 1 DECLARE RXRDY jllTERALLY 'SHR(INPUT(USFLAG);1)' J 

34 1 DECLARE TXRDY j LITERALLY ' INPUT(USFLAG) ' i 


ORIGINAL PAGE IS 
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/« MISCELLANEOUS DECLARATIONS «/ 


37 

1 

DECLARE NULL 

LITERALLY 

'OOOH' } 


38 

1 

DECLARE CNTLSB 

LITERALLY 

'002H' 5 


39 

1 

DECLARE CNTLSC 

LITERALLY 

'003H' ; 


40 

1 

DECLARE BEL 

LITERALLY 

'007H' ) 

° RI GINat 

41 

42 

43 

1 

1 

1 

DECLARE BS 
DECLARE LF 
DECLARE CR 

LITERALLY 

LITERALLY 

LITERALLY 

'008H' } 
'OOAH' J 
'OODH' ; 

44 

1 

DECLARE CNTLSQ 

LITERALLY 

'011H' i 

45 

1 

DECLARE CNTLSR 

LITERALLY 

'012H' ; 


44 

1 

DECLARE CNTLSS 

LITERALLY 

'013H' ; 


47 

1 

DECLARE ESC 

LITERALLY 

'01BH' J 


48 

1 

DECLARE SPACE 

LITERALLY 

'020H' J 


49 

1 

DECLARE RUB 

LITERALLY 

'07FH' ; 


50 

1 

DECLARE JOBSIDLE 

LITERALLY 

'J0BSM0DE=0' i 


51 

1 

DECLARE JOBSSETUP 

LITERALLY 

'J0BSN0BE*1' I 


52 

1 

DECLARE JOBSRUN 

LITERALLY 

'JQBSNQDE*2' i 


53 

1 

DECLARE CRSORSLF 

LITERALLY 

r (KEY*CR OR KEY«LF) ' i 


54 

1 

DECLARE EXITSSETUP LITERALLY 

'(JOBSSETUP AND KEY*CNTLSC) ' 

i 

55 

1 

DECLARE TRUE 

LITERALLY 

'OFFH' ; 


54 

1 

DECLARE FALSE 

LITERALLY 

'0' J 


57 

1 

DECLARE FOREVER 

LITERALLY 

'WHILE TRUE' i 



58 1 DECLARE INTSCOUNTER (8) DWORD EXTERNAL J /« MULTIBUS INTERRUPT TALLY COUNTERS */ 

59 1 DECLARE NH1SC0UNTER DWORD EXTERNAL ) /• DEADHAM TIMER INTERRUPT COUNTER «/ 

40 1 DECLARE UNKNONNSCOUNTER DWORD EXTERNAL i /« REMAINING RUPT TYPES SHARE COUNTER «/ 

41 1 DECLARE BT0SFLA6 BYTE EXTERNAL ; /* BUS TIMEOUT FLAG •/ 

42 1 DECLARE NEHSPTR POINTER i 

43 1 DECLARE BYTESDATA BASED MENSPTR BYTE I 

44 1 DECLARE WORDSDATA BASED NEHSPTR WORD i 

45 1 DECLARE DWORDSDATA BASED NEHSPTR DWORD J 

44 1 DECLARE POINTERSDATA BASED HEHtPTR POINTER i 

47 1 DECLARE BYTESSAVE BYTE I 

48 1 DECLARE HORDSSAVE WORD l 

49 1 DECLARE DNORDtSAVE DWORD ) 

70 1 DECLARE POINTERSSAVE POINTER ! 

71 1 DECLARE PTR STRUCTURE (OFFSET WORD# SE6 WORD) AT (WEHSPTR) i 

72 1 DECLARE SE6HENT LITERALLY 'PTR.SEG' i /» MEMORY ADDRESS SEGMENT •/ 

73 1 DECLARE FROHSADDR WORD AT (0MEMIPTR) } /* BLOCK START ADDR »/ 

74 1 DECLARE INCREMENT WORD J /» FROMSADDR STEP SIZE »/ 

75 1 DECLARE DATASTYPE BYTE 5 /» 'B'> ’W'» 'D'; OR 'P' */ 

74 1 DECLARE HEXSDHORD DWORD I /» GETHEX OUTPUT »/ 

77 1 DECLARE HEXtMORD WORD AT (8HEXSDW0RD) ) /» LOWER 14 BITS OF HEXSDWORD «/ 

78 1 DECLARE HEXSBYTE BYTE AT (8HEXSDH0RD) i /* LOWERMOST 8 BITS OF HEXSDWORD 1/ 

79 1 DECLARE F1LLERSDW0RD DWORD ) /« FILLER VALUE •/ 

80 1 DECLARE FILLERSHORB WORD AT (8FILLERSDW0RD) 1 /* LOWER 14 BITS */ 

81 1 DECLARE FILLERSBYTE BYTE AT (8FILLERSDW0RD) ) /• LOWERMOST 8 BITS •/ 

82 1 DECLARE TOSADDR WORD ! /* BLOCK STOP ADDR >/ 

83 1 DECLARE KEY BYTE PUBLIC i /» LAST OPERATOR KEYSTROKE */ 

84 1 DECLARE CHBUF (44) BYTE i /« "KEYSIN’ CHARACTER DUFFER •/ 

85 1 DECLARE NCHAR BYTE I /» I CHAR IN CHBUF «/ 

84 1 DECLARE CNDSSAVE BYTE 1 /# COMMAND SAVE */ 

87 1 DECLARE USARTSINITSBYTE BYTE ; '» "SART MODE INSTRUCTION BYTE */ 
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88 1 DECLARE OUTPUTtDISABLED BYTE J /» SCREEN OUTPUT CONTROL »/ 

89 1 DECLARE JOBtBUFFERtPTR POINTER J /« POINTER TO CURRENT JOB BUFFER «/ 

90 1 DECLARE JOBtBUFFER BASED JOBtBUFFERtPTR (1280) BYTE > /* CURRENT JOB BUFFER */ 

91 1 DECLARE JOBtBUFFERtlNDEX WORD J /* INDEX TO NEXT CHAR IN CURRENT JOB BUFFER */ 

92 1 DECLARE JOBtHOBE BYTE I /* 0=IBLE i=SETUP 2=RUN 3=EBIT »/ 

93 1 DECLARE FILEtDECABE BYTE J /» 0 THRU 9 */ 

94 1 BECLARE FILEtNUHBER BYTE i /» 0 THRU 99 »/ 

95 1 DECLARE FILEtBUFFER (1280) BYTE ) /« USED BY FILE LOADER COMMANDS 0-9 */ 

94 1 DECLARE EDITtFILEtNUHBER BYTE ! /« HATCHING FILE NUMBER (=255 IF NOT) 1/ 

97 1 DECLARE EDITIBUFFER (1280) BYTE PUBLIC i /• USED BY JE COMMAND */ 

98 1 DECLARE ITEMIINDEX (128) WORD J /* EDIT BUFFER ITEM INDEXES »/ 

99 1 DECLARE NITERS BYTE ! /« NUMBER OF ITEMS IN EDIT BUFFER */ 

100 1 DECLARE BLOCK (44) BYTE ! /« BUBBLE MEMORY TEMP STORAGE •/ 

101 1 DECLARE ASCII (14) BYTE DATA ('0123454789ABCDEF') i 


102 1 ERASEtEDITtBUFFER* PROCEDURE J 

103 2 CALL SETB(0«8EDITtBUFFERi 1280) ) 

104 2 EDITttUFFER(44) = OFFH } 

103 2 ITEM$INDEX(0) = 44 ) 

104 2 EDITtFILEtMUHBER = 255 > 

107 2 NITEMS > 0 ! 

108 2 END i 

109 1 GENERATEtITEHtINDEXES s PROCEDURE) /* SET UP ITEHIINDEX ARRAY •/ 

110 2 CALL SETH(44«0ITEN(INDEXtl28) i 

111 2 DO NITEMS = 0 TO 127 J 

112 3 IF EimiUFFER (ITENSINDEX (NITEMS) + 1 ) * 0 THEN /l END OF BUFFER •/ 

113 3 RETURN ) 

114 3 ITEHtINDEX(NITEMS+l) = ITEM* INDEX (NITERS) 

♦ FINDB(BEDITIBUFFER(ITEMiINDEX(NITEMS)+l)/0FFH«12B0) + 1 ) 

115 3 END ) 

114 2 END ) 

117 1 LOAD* JOB : PROCEDURE ) 

110 2 DECLARE FILE BYTE* I MORD ) 

119 2 IF JOBISETUP THEN /* ILLEGAL REQUEST »/ 

120 2 DO ) 

121 3 JOBtBUFFERIINDEX * JOBtBUFFERIINDEX - 2 i 

122 3 CALL ILLEGALtCMD / 

123 3 RETURN i 

124 3 END ) 

125 2 FILE * lOiFILEtDECADE ♦ (KEY MB OFH) i 

124 2 IF FILEtNUHBER 0 FILE THEN 

127 2 DO J 

12B 3 FILEtNUHBER = FILE ) 

129 3 IF MOT READt251 (20>20«FILEi SFILEtBUFFER) THEN 

130 3 DO ) 

131 4 FILEtNUHBER = 255 ) 

132 4 RETURN ) 

133 4 END ) 

134 3 END ) 

135 2 CALL HRITEtN'Job file '*0H J 

134 2 CALL CO (ASCII (FILEtDECADE) ) ) 

137 2 CALL CO (KEY) ) 

138 2 IF FILEtBUFFER (45) 0 0 THEN 

139 2 DO i 


’iv ’ ’ '.X, FAGS 13 

OF POOR QUAUXa 
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140 3 

141 3 

142 3 

143 3 

144 3 

145 3 

144 2 

147 2 

148 1 

149 2 

150 2 

152 2 

153 3 

154 3 

155 2 
154 2 

157 2 

158 1 

159 2 

140 2 

141 3 

142 3 

143 3 

144 3 

145 3 
144 3 

147 3 

148 3 

149 3 

170 3 

171 3 

172 3 

173 3 

174 3 

175 3 

174 3 

177 3 

178 3 

179 3 

180 3 

181 3 

182 3 

183 3 

184 3 

185 3 

184 3 

187 3 

188 3 

189 3 

190 3 

191 3 

192 3 

193 3 

194 2 


CALL WRITE (§(' « '»0)> J 
CALL WRITE (8FILE4BUFFER) ! 
JOBtBUFFEROPTR = 8FILE4BUFFER » 
J0B4BUFFER4INDEX = 44 1 
J0B4RUN ! 

END J 


CALL WRITE (8(' is ewts.'/O)) ) 
EH) J 


Pa 


CO! PROCEBURE (CHAR) J /« OUTPUT ASCII CHARACTER TO TERMINAL «/ 

DECLARE CHAR BYTE i 
IF OUTPUTtDISABLEB THEN RETURN J 
BO WHILE NOT TXRBY ! 

CALL PRINTERtSERVICE J 
END ; 

OUTPUT (USBATA) - CHAR t 
CALL PRINTER4BUFFER (CHAR) ) 

END ; 


SHOHtKEYi PROCEBURE i 
IF KEY < SPACE THEN 
BO CASE KEY ) 

CALL WRITE (8('(NULL>’/0)) i 
CALL HRITE(l('(S0H>'<0)) i 
CALL WRITE(8('(STX>';0)) ! 
CALL HRITE(B('(ETX>'<0» ! 
CALL WRITE (8('(E0T)'>0)) ) 
CALL WRITE(8('<ENQ)'>0)) J 
CALL WRITE (8('(ACK>'/0)) i 
CALL WRITE(t('<BEL>'*0» i 
CALL HRlTE(8('<BS>'/0» ! 
CALL WRITE(l('(HT>'»0)) J 
CALL NRITE(8('<LF>'>0)) J 
CALL WRITE(8('(VT)';0)) i 
CALL WRITE(8('(FF>'iO)) ) 
CALL WRITE (8('(CR>'»0)) J 
CALL HRITE(8('(S0)';0)) ) 
CALL HRITE(B('<SI)'i0)) l 
CALL HRITE(8('(BLE>'/0)) » 
CALL HRITE(I('<DC1>'>0)) ! 
CALL WRITE (8('(BC2>'/0)) ! 
CALL WRITE(e('(0C3)';0)) ! 
CALL HRITE(8('(BC4)'»0)) i 
CALL WRITE (8('(NAK>';0)) J 
CALL WHTE(8('(SYN>';0)) J 
CALL WRITE (8('<ETB)'iO)) J 
CALL HRITEtBtHCANJ'/O)) 1 
CALL WRITE (B('(EN)'iO)) J 
CALL WRITE (0(' (SUB)' <0)) ) 
CALL WRITE (B('(ESC)'jO)) i 
CALL WRITE(8('(FS>';0)) J 
CALL HRITE(B('(6S)'iO)> i 
CALL HRITE(6('(RS)';0)) J 
CALL WRITE(8('(US>'/0)) f 
END ; 

ELSE IF KEY = RUB THEN 
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195 2 CALL WRITE (G('(RUB)'.O)) i 

196 2 ELSE 

CALL CO (KEY) ) 

197 2 END J 

198 1 BLANK) PROCEDURE (N)) /> SEND SPACE CHARACTERS TO TERMINAL «/ 

199 2 DECLARE <N*1> BYTE i 

200 2 DO I =■ 1 TO N ) 

201 3 CALL CO(SPACE) > 

202 3 END ) 

203 2 END ) 

204 1 BEEP) PROCEDURE) /• SEND (BEL) CHARACTER TO TERMINAL «/ 

205 2 CALL CO (BEL) ) 

206 2 END ) 

207 1 PURGE* J0B4ENTRY: PROCEDURE ) 

208 2 IF J0B4SETUP THEN 

209 2 DO MHILE JQBBBUFFER ( JOBIBUFFERBINBEX) < > OFFH ) 

210 3 JOBBBUFFERBINDEX * JOBBBUFFERBINDEX - 1 ) 

211 3 END J 

212 2 JOBBBUFFER ( J0BBBUFFERBINDEX*1) = 0 5 

213 2 END ) 

214 1 WRITE: PROCEDURE (STRIN64PTR) PUBLIC 1 /• WRITE MESSAGE STRING TO TERMINAL •/ 

215 2 DECLARE STR1N6IPTR POINTER* STRING BASED STRINGBPTR (65535) BYTE* 1 WORD I 

216 2 DO I 5 0 TO 65535 ) 

217 3 IF STRING(I) • 0 THEN RETURN * 

219 3 CALL C0(STRIN6(I)) * 

220 3 END ) 

221 2 END * 

222 1 ILLEGAL tCMD : PROCEDURE* I* COMMAND KEY IN ERROR */ 

223 2 IF KEY <) CNTLBC THEN CALL BEEP * 

225 2 IF KEY ) SPACE AND KEY ( RUB THEN CALL CO(KEY) ) 

227 2 ELSE CALL CO('t') J 

228 2 CALL MRITE<8(' illegal coaaand'*0)) * 

229 2 END ) 

230 1 BTQ: PROCEDURE BYTE) /• HAS THERE BEEN A BUS TIME-OUT ? »/ 

231 2 IF NOT BT0BFLA6 THEN 

232 2 RETURN FALSE ) 

233 2 CALL HRITE(8(BEL*' BT0'<0)) ) 

234 2 BT04FLAG = FALSE ) 

235 2 RETURN TRUE ) 

236 2 END ) 

237 1 CR4LF : PROCEDURE ) /* SEND CR 4 LF TO TERMINAL >/ 

238 2 CALL CO(ODH) ) 

239 2 CALL CO(OAH) ) 

240 2 END > 

241 1 TOtTERHINATE: PROCEDURE ) 

242 2 CALL HRITE(8('To terainate* press (ESC).'*0)> i 

243 2 END * 

244 1 HEXl: PROCEDURE (VAU PUBLIC ) /« DISPLAY LONER NIBBLE OF BYTE AS 1 HEX CHAR »/ 
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245 2 DECLARE VAL BYTE J 

246 2 CALL CO(ASCII(VAL AND OFH» 1 

247 2 END ) 

248 1 HEX2i PROCEDURE (VAL) PUBLIC 1 /• DISPLAY BYTE AS 2 HEX CHARS */ 

249 2 DECLARE VAL BYTE i 

250 2 CALL HEX1(SHR(VAL;4)) J 

251 2 CALL HEXl(VAL) i 

252 2 END l 

253 1 HEX4: PROCEDURE (VAL) ) /« DISPLAY HORD AS 4 HEX CHARACTERS */ 

254 2 DECLARE VAL HORD J 

255 2 CALL HEX2(L0H(SHR(VAL/B))) J 

256 2 CALL HEX2(L0W(VAU) 1 

257 2 END 1 

258 1 HEX8: PROCEDURE (VAL) / /• DISPLAY DWORD AS 8 HEX CHARACTERS »/ 

259 2 DECLARE VAL DWORD I 

260 2 CALL HEX4(L0N(SHR(VAL/16)» ) 

261 2 CALL HEX4(L0W(VAL)) » 

262 2 END 5 

263 1 HEXDPTR: PROCEDURE (VAL) ) /I DISPLAY POINTER AS B HEX CHARACTERS «/ 

264 2 DECLARE VAL POINTER/ DW DWORD AT (OVAL) ! 

265 2 CALL HEX4(L0W(SHR(DH/16))) J 

266 2 CALL CO('l') i 

267 2 CALL HEX4(L0N(DW)) i 

268 2 END ) 

269 1 NENtMRtLlNE: PROCEDURE (PROMPT ) i /» START NEW MEMORY READ LINE »/ 

270 2 DECLARE PROMPT BYTE i 

271 2 CALL PRINTERtSNAPSHOT i 

272 2 CALL CRtLF J 

273 2 CALL HEX4 (SESHEKT) / 

274 2 CALLCO(M')) 

275 2 CALL HEX4(FR0HMDDR) i 

276 2 CALL DLANK(l) ! 

277 2 CALL CO(PROMPT) ) 

278 2 CALL BLANK(2> I 

279 2 END I 

280 1 SPACER: PROCEDURE/ 

281 2 CALL DLANK(l)) 

282 2 IF ( FROMDADBR AND 03H ) » 0 THEN 

283 2 CALL BLANK(l) ) 

284 2 IF ( FROHtADDR AND 07H ) « 0 THEN 

285 2 CALL DLANK(l) J 

286 2 END J 

287 1 NENBIOf DISPLAYtLINE : PROCEDURE(PROHPT) 5 /» START NEN 1/0 DISPLAY LINE »/ 

288 2 DECLARE PROMPT BYTE J 

289 2 CALL PRINTERtSNAPSHOT / 

290 2 CALL HRITE(B(CR/LF/'l/0 '»0)> ? 

291 2 CALL HEX4 (FROHtADDR) / 

292 2 CALL BLANK(l) 1 

293 2 CALL CO(PRONPT) / 

294 2 CALL BLANK (2) ) 


/« PERFORM HEX DISPLAY LINE SPACING »/ 
/• EACH BYTE GETS ONE BLANK »/ 

/» EVERY 4 BYTES ONE MORE */ 

/« EVERY B BYTES ONE MORE •/ 
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295 

2 

END ) 



296 

1 

OPERATOR tABORT : PROCEDURE BYTE; 

/• OPERATOR CONTROL KEY CHECK »/ 


297 

2 

IF KEY«ESC THEN 

/• ESC */ 


298 

2 

GO TO GOTtESC i 



299 

2 

aSE IF KEY*CNTLtS THEN 

/* OPERATOR PAUSE «/ 


300 

2 

BO FOREVER 1 



301 

3 

CALL PRINTERtSERVICE i 

• 


302 

3 

IF RXRBY THEN 



303 

3 

DO ; 


* 

304 

4 

KEY > INPUT (USDATA) ) 



305 

4 

CALL PRINTERISNAPSHOT i 



306 

4 

IF KEY=€SC THEN 



307 

4 

GO TO GOTIESC ! 


' 

308 

4 

IF KEY s CNTLtO THEN 

/» PROCEED */ 


309 

4 

RETURN FALSE ) 



310 

4 

END ! 



311 

3 

END I 



312 

2 

ELSE 





RETURN FALSE i 



313 

2 

GOTtESC: 





IF JOBtRUN THEN 



314 

2 

DO ; 



315 

3 

CALL HPIT£(8(CR>LFf'Job aborted 

'»0)> i 


316 

3 

JOBtIDLE i 



317 

3 

END ; 



318 

2 

RETURN TRUE } 



319 

2 

END < 



320 

1 

KEYtCAPTURED: PROCEDURE BYTE ! 

/i GRAB KEYIN IF MAILABLE »/ 


321 

2 

IF JOBtRUN THEN 

/* GET KEY FROM JOB BUFFER »/ 


322 

2 

do ; 



323 

3 

IF RXRBY THEN 

/■ CHECK FOR OPERATOR INTERVENTION 1/ 


324 

3 

BO ; 



325 

4 

KEY > INPUT (USDATA) ! 



326 

4 

IF OPERATORtABORT THEN 



327 

4 

RETURN TRUE i 



328 

4 

END ; 



329 

3 

AGAIN: 





KEY » JOBtBUFFERI JOBtBUFFERtINDEX) } 


330 

3 

JOBtBUFFERtINDEX = JOBtBUFFERtINDEX + 1 1 


331 

3 

IF KEY = OFFH THEN 

/» END OF LINE - FETCH ANOTHER CHAR »/ 


332 

3 

SO TO AGAIN i 



333 

3 

IF KEY S MJLL THEN 

/» END OF BUFFER »/ 


334 

3 

DO ; 



335 

4 

KEY * CR J 



336 

4 

JOBtIDLE i 



337 

4 

end ; 



338 

3 

RETURN TRUE i 



339 

3 

END ! 



340 

2 

ELSE 

/» GET KEYBOARD INPUT IF NAITING »/ 




DO ; 



341 

3 

IF NOT RXRBY THEN 



342 

3 

RETURN FALSE ) 



343 

3 

KEY * INPUT (USDATA) i 



344 

3 

IF KEY 0 10H TffiN RETURN TRUE 

t 

l 


346 

3 

CALL PRINTERtSNAPSHOT ! 
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347 3 

348 3 

349 2 

350 1 

351 2 

352 2 

353 2 

354 2 

355 2 
354 2 

357 2 

358 2 

359 2 

340 1 

341 2 

342 3 

343 3 

344 2 

345 2 
344 3 

347 3 

348 4 

349 4 

370 4 

371 3 

372 2 

373 1 

374 2 

375 2 

374 3 

377 3 

378 4 

379 4 

380 4 

381 4 

382 3 

383 3 

384 3 

385 2 

384 1 

387 2 

3B8 2 

389 2 

390 3 

391 3 

392 3 

393 3 

394 3 

395 3 

394 2 

397 1 


RETURN FALSE { 

END ; 

ENB I 

COMPLETE: PROCEDURE BYTE! /« USED BY NR* NF* l 1R COMMANDS •/ 

DECLARE OLDOFROHIADDR MORD i 

FROHDADDR « (OLDOFROMOADDR : = FROHOADDR) ♦ INCREMENT } 

IF FROHDADDR < OLDOFROHIADDR OR FROHDADDR ) TODABDR THEN 
RETURN TRUE ! 

IF NOT RXRDY THEN 
RETURN FALSE i 
KEY * INPUT (USDATA) I 
RETURN OPERATORDADORT I 
END I 

Cl! PROCEDURE * /• WAIT FOR NEXT KEYIN >/ 

BO WHILE NOT KEYDCAPTURED S 
CALL PRINTEROSERVICE J 
END j 

IF JOBISETUP THEN /» PUT KEY IN DUFFER »/ 

DO ; 

IF KEY O CNTLOC THEN 
DO J 

JOBIBUFFER ( JOBIBUFFERDINDEX) * KEY * 

JOBDBUFFERDINDEX * JOBIBUFFERDINDEX * 1 i 
END I 
END ; 

END I 

YESDNOt PROCEDURE J 
CALL Cl 1 

DO WILE KEY O ESC J 
IF FINDBTK'YsNo') *KEY*4) ( 4 THEN 
DO * 

CALL CO (KEY) ) 

CALL CAPITALIZEOKEY 1 
RETURN I 
END i 

CALL BEEP J 
CALL Cl ) 

END ; 

END ; 


KEYOCASEi PROCEDURE (PTR) BYTE ) 

DECLARE PTR POINTER* CHAR BASED PTR (»> BYTE* INDEX BYTE i 
DECLARE LENGTH LITERALLY 'CHAR(O)' * 

DO FOREVER 1 
taii n : 

CALL CAPITALIZEOKEY i 

IF ( INDEX:>FINDB(8CHAR(1)*KEY*LENGTH) ) < OFFH THEN 
RETURN INDEX i 
ELSE 

CALL DEEP I 
END i 
END ; 


GETOANOTHEROKEY: PROCEDURE BYTE* /• WAIT UP TO 1 SECOND FOR KEYIN */ 
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398 2 

399 2 

400 3 

401 3 

402 3 

403 3 

404 2 

405 2 


406 1 

407 2 

408 2 

409 2 

410 3 

411 3 

412 3 

413 3 

414 3 

415 3 

416 2 

417 l 

418 2 

419 3 

420 3 

421 2 

422 1 

423 2 

424 2 

425 2 

426 2 

427 2 

428 3 

429 3 

430 3 

431 3 

432 2 

433 2 

434 1 

435 2 

436 2 

437 2 


438 1 

439 2 


DECLARE 1 BYTE J 
BO I > 1 TO 100 i 
IF KEYtCAPTURED THEM 
RETURN TRUE i 

CALL TIME (100) J /» 10 MILLISECOND PAUSE »/ 

END i 

RETURN FALSE i /» TIMEOUT »/ 

END ; 

/i 'RUBOUT ' D&ETES MOST RECENT ADDITION TO CHBUF «/ 

/• BEEP IS SOUNDED IF CHBUF ALREADY EMPTY OF CHARACTERS »/ 

RUBOUT: PROCEDURE i 
IF NCHAR > 0 THEN 
CALL BEEP ) 

ELSE 


NCHAR * NCHAR - 1 i 
CHBUF (NCHAR) - 0 J 
IF JOBtSETUP THEN 

JOBtBUFFERtINDEX - JOBtBUFFERtINDEX - 1 ) 
CALL HRITE(B(B9iSPACE«BSiO)) 5 
END ) 

END ; 


ERASE: PROCEDURE) /> EMPTY OUT CHBUF >/ 

DO WHILE NCHAR ) 0 I 
CALL RUBOUT ) 

END ) 

END ) 

FLUSH: PROCEDURE i /« PURGE CHBUF OF FAULTY INPUT •/ 

CALL BEEP ) 

IF NCHAR 3 0 THEN 
RETURN J 
KEY = 0 i 

DO WHILE KEYOESC AND KEYORUB 1 
CALL Cl ) 

IF JOBBSETUP THEN 

JOBiBUFFERtINDEX - JOBtBUFFERtINDEX - 1 / 

END J 

CALL ERASE ) 

END ) 

CAPITAUZEtKEY: PROCEDURE ) 

IF KEY >* 'a' AND KEY (* THEN 
KEY * KEY - 20H ; 

END ) 


/« "KEYSIN" ROUTINE PLACES OPERATOR KEYBOARD IW>UT STRIN6 IN CHBUF. 

63 = NUMBER OF CHARACTERS ALLOHED. NCHAR = ACTUAL NUMBER RECEIVES. 
IF ESCAPE KEY PRESSED WITH NCHAR 3 0 ; A FALSE RETURN STATUS IS SET. 
OTHERWISE! ESC KEY PURGES PREVIOUS STRING AND ROUTINE STARTS OVER. 

»/ 

KEYSIN: PROCEDURE BYTE) /» GET OPERATOR ENTRY •/ 

CALL SETB(0»RCHBUF/64) ) 
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440 

2 

NCHAR = 0 *' 


kki 

n 

ft 

BO MHILE NCHAR ( 44 ! 


442 

3 

CALL Cl * 


443 

3 

IF EXITtSETUP THEN 


444 

445 
444 
447 

3 

3 

3 

4 

RETURN FALSE 1 
IF KEY =ESC THEN 
DO ; 

IF (KHAR * 0 THEN 


448 

4 

RETURN FALSE J 

449 

4 

IF JOBtSETUP THEN 


450 

4 

JOBtBUFFERtINDEX = JOBtBUFFERtINDEX - 1 1 


451 

4 

CALL ERASE ) 


452 

4 

END 1 


453 

3 

ELSE IF CRtORtLF THEN 


454 

3 

RETURN TRUE i 


455 

3 

ELSE IF (KEY * RUB OR KEY * BS) THEN 


454 

3 

DO i 


457 

4 

IF JOBtSETUP THEN 


458 

4 

JOBtBUFFERtINDEX » JOBtBUFFERtINDEX - 1 * 


459 

4 

CALL RUBOUT ! 


440 

4 

END ; 


441 

3 

ELSE 




DO I 


442 

4 

CALL CO (KEY)) /« ECHO IT »/ 


443 

4 

KEY » KEY AM 7FH ) /• REMOVE PARITY BIT «/ 

444 

4 

CHBUF(NCHAR) - KEY ) 


445 

4 

NCHAR = CHAR ♦ 1 » 


444 

4 

END ‘ 


447 

3 

END ; 


448 

2 

CALL NRITE(8(BEL*’ overflow' *0))) /« STRING TOO LONG 

*/ 

449 

2 

RETURN FALSE J 


470 

2 

END ; 


471 

1 

HEXSKEYtVALUE: PROCEDURE (CHAR) BYTE) /• CONVERT ASCII HEX KEY 

TO VALUE */ 

472 

2 

DECLARE CHAR BYTE ) 


473 

2 

RETURN L0H(FINDB(0A8CII*CHAR*14)) ) 


474 

2 

END * 


475 

1 

LEGALtDECADE: PROCEDURE (CHAR) BYTE) 


474 

2 

DECLARE CHAR BYTE 1 


477 

2 

IF FINDB(MSC1I*CHAR*10) < 10 THEN RETURN TRUE ) 


479 

2 

RETURN FALSE i 


480 

2 

END ) 



/• 'OETHET ROUTINE ACCEPTS FROM 1 TO 8 HEXADECIMAL KEYS FROM OPERATOR. 

THE DECODED VALUE IS HRITTEN TO THE LOCATION HEXtBHORD. THE ARGIMENT 
SPECIFIES THE MAXIMUM NUMBER OF DIGITS ALLOHED (NCHAR). NCHAR HILL LATER 
DE USED TO DETERMINE HHETHER A BYTE# HORDi OR DUORD VALUE IS USED. 

IF AN ILLEGAL DIGIT IS ENTERED* OR MORE THAN THE ALLOHED NUMBER OF BI6ITS 
ARE ENTERED* A DEEP SOUNDS AND OPERATOR MUST REPEAT ENTRY. AN ESCAPE KEY 
RETURNS A FALSE FLAG. »/ 


481 1 GETtHEX: PROCEDURE (NIN*NAX) BYTE i 

482 2 DECLARE (HIN*MAX*I) BYTE J 

483 2 DO FOREVER * 

484 3 IF NOT KEYSIN THEN RETURN FALSE * 

484 3 DO I > 0 TO 43 * 
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487 4 

488 4 

489 4 

490 3 

491 3 

492 4 

493 4 

494 4 

495 5 

494 5 

497 5 

498 5 

499 4 

500 4 

501 3 

502 3 

503 3 

504 3 

505 2 

504 1 

507 2 

508 2 

509 2 

511 2 

512 2 

513 2 

514 2 

515 2 

514 2 

517 1 

518 2 

519 2 

520 2 

521 2 

522 2 

523 2 

524 2 

525 2 

524 2 

527 1 

528 2 

529 2 

530 2 

531 2 

532 2 

533 2 

534 2 

535 2 

534 1 

537 2 


IF CHBUF(I) )= »»' AW CHBUF(I) (= 'i' THEN /» HOST CAPITALIZE •/ 
CHBUF(I) = CHBUF(I) - 20H J 
END i 

IF NCHAR >* KIN AND NCHAR <= MAX TIEN 
DO i 

HEXtDNORD * 0 ) 

IF NCHAR ) 0 THEN 

DO I = 0 TO NCHAR-1 / 

IF HEXIKEYIVALUE (CHBUF(I) ) > 15 THEN 
GO TO BABIKEY J 
HEXIDHORD * 14«HEX«DH0RI 

* DOUBLE (DOUBLE (HEXiKEY LVALUE < CHBUF (!)))) J 

END i 

RETURN TRUE J 
END ; 

BABIKEY: 

CALL FLUSH ! 

IF JOBISETIP THEN /• NEED TO PURGE <cr> ALSO •/ 

JOBIBUFFERIINDEX * JOBiBUFFERB INDEX - 1 I 
END ; 

END ; 

LEGALfHEMRYMDDRESS: PROCEDURE (ADDS) BYTE J 

DECLARE ADDR WORD. ABS DHORD i 

ABS » SHL(IOUBLE (SEGMENT) ;4) ♦ DOUBLE (ADDR) ) 

IF ABS > IFFFH AND ABS < OFCOOOH THEN RETURN TRIE J 

CALL HRITE(B(CR/LF;BEL; 'Restricted eeeors addresses : '#0)) i 

IF ABS < 2000H THEN 

CALL HRITE(8('0000H thru IFFFH'/O)) t 
ELSE 

CALL NRITE(8('OFCOOOH thru OFFFFFH'/O)) 1 
RETURN FALSE I 
END i 

HENABR: PROCEDURE (ADDRIPTR) BYTE ) /» GET MEMORY ADDRESS */ 

DECLARE ADDRIPTR POINTER/ ADDR BASED ADDRIPTR HORI I 
CALL HRITE(8(' eeurs sddr '/0» } 

IF NOT 6ETHEX(1«4) THEN 
RETURN FALSE ) 

IF NOT LEBALIMEMORY IADDRESS (HEXIHORD) THEN 
RETURN FALSE } 

ADDR « HEXIHORD i 
RETURN TRIE i 
END ) 

FROMITO: PROCEDURE BYTE) /» GET OPERATOR “FROM - l ’TO* ENTRIES »/ 

CALL HRITE(8(' froe',0)) J 
IF NOT MENADR (8FR0NBADDR) TIEN 
RETURN FALSE ! 

CALL HRITE(0(' to'/O)) } 

IF NOT HENADR(BTOIADDR) THEN 
RETURN FALSE ! 

RETURN TRUE i 
END ; 

LE6ALII0P0RT: PROCEDURE (PORT) BYTE / 

DECLARE PORT WORD ) 
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538 2 IF PORT < 80H OR PORT > ODFH THEN RETURN TRUE i 

540 2 CALL NRITE(8(CR»LF*BEL*'Restricted 1/0 ports : 080H thru 0DFH'*0)) ) 

541 2 RETURN FALSE } 

542 2 END I 

543 1 LEGALtlOtFRONtTO: PROCEDURE BYTE i 

544 2 IF FRONtADBR < BOH AND TOtADDR ) ODFH THEN 

545 2 RETURN LEGALIIOPORT (80H) i 

544 2 RETURN TRUE ) 

547 2 END J 

548 1 IMPORT : PROCEDURE (RESULTtPTR) DYTE J /« BET I/O ADDRESS «/ 

549 2 DECLARE RESULTtPTR POINTER* RESULT BASED RESULTtPTR WORD I 

550 2 CALL HRITE<8(' port '*0)) J 

551 2 IF NOT 6ETHEX(1*4) THEN 

552 2 RETURN FALSE S 

553 2 IF WIT LEGALIIOPORT (HEXtHORD) THEN 

554 2 RETURN FALSE * 

555 2 RESULT = HEXtHORD i 

554 2 RETURN TRUE J 

557 2 END I 

558 1 L0ADtTIHERt2: PROCEDURE (COUNT) i 

559 2 DECLARE COUNT WORD } 

540 2 OUTPUT (PITNOD) = 10U0U0B * /• CTR 2* 2 DYTES* NODE 3« DINARY «/ 

541 2 OUTPUT (PIT2) * LOH (COUNT) i 

542 2 OUTPUT (PIT2) « HIGH(COUNT) * 

543 2 END i 

544 1 USARTtUUTi PROCEDURE (NODE) * 

545 2 DECLARE NODE DYTE f 

566 2 USART tINITtBYTE = NODE i 

547 2 CALL TINE (200) 5 

548 2 OUTPUT(USFLAG) * 0 ) 

549 2 CALL TINE (10) I 

570 2 OUTPUT (USFLAB) » 0 i 

571 2 CALL TINE (10) ) 

572 2 OUTPUT (USFLAG) * 0 ) 

573 2 CALL TINE(IO) ! 

574 2 OUTPUT (USFLAG) > 0 ! 

575 2 CALL T1NE(10) 5 , 

574 2 OUTPUT (USFLAG) » 40H » /» RESET •/ 

577 2 CALL TIHE(IO) J 

578 2 OUTPUT (USFLAG) a NODE J /• NODE INSTRUCTION >/ 

579 2 CALL TINE (10) * 

580 2 OUTPUT (USFLAG) s 35H * /» /RTS* ER* RXE* /DTR* TXEN «/ 

581 2 CALL TINE(IO) i 

582 2 KEY = INPUT (USDATA) * /> THRONAHAY PENDING KEYIN* IF ANY >/ 

583 2 END i 

584 1 NONLOK: PROCEDURE i 

585 2 DECLARE BAUDtRATEtPTR POINTER* I BYTE i 

584 2 DEBIN i 

OUTPUT (PPIFLG) a BAH * /» SET UP PARALLEL PORT FOR LED »/ 

587 2 OUTPUT (PITNOD) = 01110110B * /« CTR 1* 2 BYTES* NODE 3* BINARY •/ 

588 2 OUTPUT (PIT1) * OFFH * /t SET UP TIMER 1 FOR LED FLASH »/ 

589 2 OUTPUT (PIT1) = OFFH J 
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2 


3 

3 

595 3 
594 3 

597 2 

598 2 

599 2 

600 3 

601 3 

602 3 

603 2 

604 2 

605 3 

606 3 

607 3 

608 3 

609 2 

610 2 

611 3 

612 3 

613 3 

614 3 

615 2 

616 2 

617 3 

618 3 

419 3 

620 3 

621 2 
622 2 

623 2 

624 2 

625 2 

626 2 

627 3 

628 3 

629 3 

630 2 

631 2 

632 3 

633 3 

634 3 

635 3 

636 2 

637 2 

638 3 

439 3 

640 3 

641 3 

642 2 

643 2 

644 3 

645 3 


CALL L0ADITINERI2(4) » /• 19.2 K BAUD •/ 

CALL USARTIINIT (0101 11 10B) / /• 1 STOP BIT/ 8 CHAR BITS/ X16 >/ 

DO WHILE NOT KEYICAPTURED ! 

OUTPUT(PITNOB) * 40H /’ /« CTR 1 LATCH «/ 

I = INPUT (PIT1) 1 /» THROW AMAY LSB «/ 

/* FLASH LEB USING HOST SIGNIFICANT BIT OF TIMER 1 •/ 

OUTPUT (PPIC) * ( SHR(INPUT(PITl)/4) AND 08H ) OR 01H ! 

END ; 

OUTPUT (PPIC) - 01H J /« TURN ON LED »/ 

IF (KEY AND 7FH) * 'U» THEN 
DO i 

BAUDIRATEtPTR = 8C19200'/0) / 

GO TO EUREKA l 
END ; 

IF KEY » 66H THEN 

do ; 

CALL L0ADITIMERI2(8) i 
BAUDIRATEtPTR = 0('9600'/0) ! 

GO TO EUREKA } 

END / 

IF KEY = 78H THEN 
DO / 

CALL L0ADITIMERI2U6) < 

BAUDIRATEtPTR = R('4800'/0) / 

60 TO EUREKA I 
END / 

IF KEY = BOH THEN 
DO ; 

CALL L0AD«TIHER»2(32> ! 

BAUDtRATEBPTR = 8('2400';0> / 

60 TO EUREKA ) 

END ) 

CALL L0ADtTINER$2(16) i /* 1200 DAUD >/ 

CALL USARTtINIT (OlOlllUB) 1 l» 1 STOP BIT/ 8 CHAR BITS/ X64 */ 
IF NOT GETtANOTHERtKEY THEN 
60 TO KBIN i 

IF (KEY AND 7FH) = 'U' THEN 
DO / 

DAUDtRATEfPTR = 8('1200'^/ » 

60 TO EUREKA J 
END 1 

IF KEY =■ 66H THEN 
DO i 

CALL L0AD$TIHERI2(32) i 
BAUDIRATEtPTR = 8('600'/0) i 
60 TO EUREKA ) 

END ! 

IF KEY = 78H Tie 
DO / 

CALL L0AB»TIHER$2(64) J 
BAUDIRATEtPTR = 8('300'/0) 1 
GO TO EUREKA J 
END ; 

IF KEY = 80N THEN 
DO i 

CALL L0ADITIHERI2(128) ) 

BAUDIRATEtPTR = 8('150'»0) » 
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646 3 GO TO EUREKA » 

647 3 END ) 

648 2 CALL L0ADFTINERF2(175) i /* 110 BAUD */ 

649 2 CALL USARTFINIT(llOllOllB) J /» 2 STOP BITS; 7 CHAR BITS; X64 */ 

650 2 IF NOT GETFANOTHERFKEY THEN 

651 2 GO TO BEGIN ) 

652 2 IF (KEY AND 7FH) = 'U' THEN 

653 2 BAUDFRATEFPTR = G('110';0) J 

654 2 ELSE GO TO BEGIN i 

655 2 EUREKA: 

CALL USARTFINIT (USARTFINITFBYTE AND OFBH); /» FINAL SET-UP (7 BIT CHAR) »/ 

656 2 CALL WRITE<6('U'iCR/LF;LF,'Baud rate * SO)) } 

657 2 CALL WRITE (BAUDFRATEFPTR) ) /» PRINT BAUD RATE ON SCREEN »/ 

658 2 CALL CRFLF i 

659 2 END I 


660 1 NFCHD: PROCEDURE 5 /« MEMORY COMMAND */ 

661 2 DECLARE (SEGFSAVE;FROHFSAVE;TOFSAVEiTEMP) WORD; (TYPEFSAVE;I) BYTE I 

662 2 IF JOBFRUN THEN 

663 2 OUTPUT $D ISABLED * TRUE i 

66t 2 PTR.SEG = SEGMENT ) 

665 2 REPEAT: 

TC KEY = SPACE THEN 

666 2 DO ; 

667 3 SEGMENT * SEGtSAVE ; 

668 3 FROHIADDR * FRONtSAVE ; 

669 3 TOFADDR = TOFSAVE ; 

670 3 DATAFTYPE * TYPEFSAVE i 

671 3 GO TO HRCHDO ) 

672 3 END ) 

673 2 CALL WRITE W'Hetors ';0» ; 

674 2 DO CASE KEYFCASE(8(6;' RFSH';ESC)> > 

675 3 DO I 

676 4 CALL WRITE (8('Read ';0)> < 

677 4 CHDFSAVE * 'H' J 

678 4 60 TO REPEAT ! 

679 4 END J 

680 3 GO TO HRCHD > 

681 3 60 TO HFCHD ; 

682 3 60 TO («CHB J 

683 3 GO TO HHCHB ; 

684 3 GO TO NFABORT i 

685 3 END J 

686 2 NFABORT: 

CALL PURGEF JOB FENTR Y i 

687 2 RETURN J 

688 2 HRFCHD: 

CALL HRITE(6('Read ';0)) ! 

689 2 DO CASE KEYFCASE(8(6;'BHDPA';ESC» ; 

690 3 CALL HRITE(8('Bytes';0)> ! 

691 3 CALL MRITE(8('Words'/0)) i 

692 3 CALL HRITE(8('Duords';0)) l 

693 3 CALL HRITE(6('Poioters';0)) i 

694 3 CALL HRITE(8('ASCII';0» 1 
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495 3 

494 3 

497 2 

490 2 

499 2 

700 3 

701 3 

702 3 

703 3 

704 2 

705 2 

704 2 

707 2 

708 3 

709 3 

710 3 

711 3 

712 3 

713 3 

714 2 

715 2 

714 2 

717 2 

71B 3 

719 3 

720 3 

721 2 

722 2 

723 3 

724 3 

725 4 

724 4 

728 4 

729 4 

730 4 

731 3 

732 3 

733 4 

734 4 

734 4 

737 4 

738 4 

739 3 

740 3 

741 4 

742 4 

744 4 

745 4 

744 4 

747 3 

748 3 

749 4 

750 4 


GO TO HtABQRT i 
END ; 

DATAtTYPE * KEY i 
IF DATATYPE = 'A' THEN 
DO 1 

CALL MRITE(§(' starting at'/O)) ! 
IF NOT HEHADR (BFROHtADDR) THEN 
GO TO HtABORT ) 

END J 

ELSE IF NOT FRQNtTO THEN 
60 TO HtABQRT > 

IF JOBtIDLE THEN 
00 i 

SEGtSAVE * SEGMENT ) 

FRQHtSAVE * FROHtADDR 1 
TOtSAVE « TOtADDR ) 

TYPEtSAVE = DATAtTYPE i 
CHDtSAVE * 'H' ; 

END J 


HRtCNDO: 

OUTPUTtDISAILEfi * FALSE 1 
CALL NEHtHRtLIHE('=') ) 


HRtCHDU 

IF DATAtTYPE = 'A' THEN 
DO J 

CALL HRITE(NENtPTR) ) 

RETURN 1 
END ; 

1=01 

DO FOREVER ) 

IF DATAtTYPE = 'B' THEN 
DO ; 

BYTEtSAVE s BYTEtDATA! 

IF BTO THEN RETURN } 

CALL 102 (BYTEtSAVE) i 
INCREMENT = 1 } 

END 1 

ELSE IF DATAtTYPE = 'H' THEN 
DO ; 

NORDtSAVE * MORDtDATA) 

IF BTO THEN RETURN } 

CALL HEX4 (HORDtSA VEX i 
INCREMENT = 2 5 
END } 

IF DATAtTYPE = 'D' THEN 
DO ; 

DHORDtSAVE = DHORDtDATA) 
IF BTO THEN RETURN i 
CALL l£X8(DH0RDtSAVE) i 
INCREMENT = 4 J 
END i 

IF DATAtTYPE = »P» THEN 


/> ASCII string du»p »/ 


/» 6ET MEMORY BYTE «/ 
/• BISPLAY IT »/ 


/> GET MEMORY WORD «/ 
/» DISPLAY IT •/ 


/« GET MEMORY DHORD */ 
/* DISPLAY IT •/ 


do ; 

POINTERtSAVE = POINTERtDATA ) /» GET MEMORY POINTER «/ 
IF BTO THEN RETURN i 
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752 4 

753 4 

754 4 

755 3 

754 3 

757 3 

751 3 
759 3 

740 3 

741 3 

742 2 

743 2 

744 2 

745 2 

744 2 

747 3 

748 3 

749 3 

770 3 

771 3 

772 3 

773 2 

774 2 
774 2 

777 2 

778 2 

779 2 

780 2 

781 2 

782 2 

783 3 

784 3 

785 4 

784 4 

787 4 

788 3 

789 3 

790 4 

791 4 

792 4 

793 3 

794 4 

795 4 

794 4 

797 3 

798 3 

799 3 

800 2 

801 2 
802 2 


CALL HEXtPTR (POINTERtSAVE) i /» DISPLAY IT »/ 

INCREMENT " 4 J 
END i 

IF COMPLETE OR NOT LEGAL tHEHQRYtADDRESS (FROHtABBR) THEN 
RETURN I 

1 = 1 + INCREMENT I 

IF ( I AND OFH ) = 0 THEN /« END OF LIME »/ 

CALL NENtMRtUNE('*') ) 

ELSE 

CALL SPACER } 

END J 

HFtCMD: /• FILL BLOCK OF MEMORY */ 

OUTPUTtBISAHEI ■ FALSE ! 

IF JOBtRUN THEN 

CALL HRITE(8(CR»LFi 'Heaors >,0)) t 
CALL WRITE<8('Fill with »;0)> I 

DO CASE KEYtCASE(8(5i'M0A'iESC>> i 
CALL HRITE(8C'B»te '#0)) J 
CALL WRITE (Bt'Nord '* 0)) I 
CALL WRITE (8('Itoord ',0)> 5 
CALL WRITEttl'ASCII ',0» I 
GO TO MOABORT ) 

END J 

DATATYPE > KEY ) 

IF DATATYPE = 'A' THEN 60 TO NFAtCND J 
CALI WRITE (8 ('value »,0)) J 
IF NOT 6ETHEX(1 j 8) THEN 
GO TO HtABORT I 
FILLER4DH0RD « HEXtDHORD S 
IF NOT FROHiTO THEN 
60 TO HtABORT i 
/» FILL LOOP #/ 

DO FOREVER } 

IF DATAITYPE = 'B' THEN 
DO i 

BYTEtDATA = FILLERtBYTE J 
INCREMENT * 1 ! 

END } 

ELSE IF DATAtTYPE = 'H' THEN 
10 ! 

HORDtDATA = FILLERIHORD i 
INCREMENT = 2 ; 

END » 

ELSE 

DO i 

DHORDIDATA = FILLERtDMORD > 

INCREMENT = 4 i 
END ; 

IF BTO OR COMPLETE OR NOT LEGALtMEMORYtADDRESS (FROttt ADDR) THEM 
RETURN I 
END ; 

NFAtCHD) /• MEMORY FILL MITH ASCII STRING (/ 

IF JOBtRUN THEN 

OUTPUT tDISABLEB = TRUE J 
CALL WRITE (8 ('string starting at'iO)) I 
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803 2 

804 2 

805 2 

804 2 

807 2 

808 2 

809 2 

810 2 

811 2 

812 3 

813 3 

814 3 

815 4 

814 4 

817 4 

818 3 

819 3 

820 3 

821 3 

822 2 

823 2 

824 2 

825 2 


824 2 

827 2 

828 2 

829 2 

830 3 

831 3 

832 4 

833 4 

834 4 

835 4 

834 4 

837 4 

83B 4 

839 4 

840 1 

841 4 

B42 4 

843 4 

844 4 

845 4 

844 4 

847 4 

848 4 

849 4 

850 3 

851 2 


IF NOT HENADR(BFRONtADDR) THEN 
60 TO NtABORT * 

CALL HRITE(8(CR*LF» 

'Stria* is uritten to moots until (esc) encountered. '*CR*LF*4)) 1 
QUTPUTtBISABLED * FALSE » 

CALL HEX4<SEGMENT) i 
CALL CO('i') I 
CALL HEX4 (FROMtADDR) i 
CALL WRITE (8 (' * '*0» 1 
/» SUBSTITUTION LOOP »/ 

DO FOREVER I 
CALL Cl l 

IF KEY s NULL OR KEY=ESC OR FRQNtADDR=OFFFFH THEN 
DO 1 

BYTEtDATA * 0 I /* DELIMITER */ 

RETURN I 
END 5 

BYTEtDATA * KEY * 

FROMtADDR * FROMtADDR + 1 I 
CALL SHOWtKEY 7 
END 1 

HStCHD: /« MEMORY SUBSTITUTE ROUTINE •/ 

CALL HRITE(8('Substitute starting at'.O)) J 
IF NOT NEMADR(OFROHtABDR) THEN 
60 TO NtABORT 5 
CALL NRITE(8(CR/LF* 

'To alter location* enter 1 or 2 hex characters fol lowed bs <CR>.' 
*CR*LF*9)) i 

CALL WRITE (Ot'If no change desired* enter on I* <CR>. '*4)) * 

CALL TOtTERMlNATE ) 

OUTPUTtDISABLED > FALSE I 
/» SUBSTITUTION LOOP 1/ 

DO FOREVER i 
CALL CRtLF * 

DO I s 1 TO 4 J 
CALL HEX4(SE6HEMT) ! 

CALL COC':') } 

CALL HEX4 (FROMtADDR) * 

CALL CO('=') J 

BYTEtSAVE * BYTEtDATA* /» BET MEMORY BYTE */ 

IF BTO THEN 
RETURN i 

CALL HEX2(BYTEtSAVE) i /* DISPLAY IT »/ 

CALL C0('>') I /» PROMPT FOR SUBSTITUTION */ 

IF NOT GETHEX(0*2) THEN 

RETURN } /» ESC MEANS EXIT >/ 

IF NCHAR ) 0 THEM 

BYTEIDATA = HEXtBYTE J /» WRITE NEW BYTE TO MEMORY •/ 
FROMtADDR • FROMtADDR +1 J 
IF NOT LE6ALtMEM0RYtADDRESS (FROMtADDR) THEN 
RETURN I 
CALL BLANK (3) i 
END I 
END ; 

MHtCND: /« WRITE INTO SPECIFIED MEMORY LOCATION »/ 
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CALL NRITE(8('Hrite ';0)> j 


852 

2 

DO CASE KEY$CASE(8(3> 'BH ; rESC) ) } 

853 

3 

CALL NRITE(8('Bstes'/0)) } 

854 

3 

CALL MRITE(8('Hords'rO» J 

855 

3 

60 TO HtABORT ! 

856 

3 

END i 

857 

2 

DATAITYPE ■ KEY i 

851 

2 

CALL WRITE «(' into'.O)) i 

859 

2 

IF NOT HEMADR(6FR0H$ADDR) THEN 

860 

2 

60 TO Ml ABORT J 

861 

2 

CALL CRILF ! 

862 

2 

CALL TOiTERMINATE ) 

863 

2 

OUTPUTIDISADLED = FALSE 1 

864 

2 

CALL NEHMttLINE( ; >') i 

865 

2 

DO FOREVER / 

866 

3 

IF NOT SETHEX(M) THEN RETURN J 

868 

3 

IF DATAITYPE » 'H' THEN HORDIDATA « KEYWORD i 

870 

3 

ELSE BYTEIBATA = HEXIBYTE 1 

871 

3 

IF BTO THEN RETIRN i 

873 

3 

CALL BLAMC(l) / 

874 

3 

END ) 

875 

2 

END l 


876 

1 

IICHD: PROCEDURE) /> I/O COMMAND </ 

877 

2 

DECLARE (FROHISAVEJOISAVE) WORD# (TYPEISAVEiTEHPd) BYTE 1 

878 

2 

IF JOltRUH THEN 

879 

2 

OUTPUTIDISADLED « TRUE « 

880 

2 

REPEAT: 

IF KEY * SPACE THEN 

881 

2 

DO ; 

882 

3 

FROHfAODR * FRONISAVE J 

883 

3 

TOIADDfi * TOtSAVE > 

884 

3 

DATAITYPE = TYPEISAVE i 

885 

3 

60 TO IRCMDO } 

886 

3 

END ; 

887 

2 

CALL MRITE(8('l/0 '»«) ) 

888 

2 

DO CASE KEY$CASE(8(5i' RHF'rESC)) J 

889 

3 

DO ; 

890 

4 

CALL HRITE(8('Read '»0)> » 

891 

4 

CHDISAVE = »I» 5 

892 

4 

GO TO REPEAT 1 

893 

4 

end ; 

894 

3 

GO TO IRCHB I 

895 

3 

60 TO IHCHD ; 

896 

3 

60 TO IFCHD 1 

897 

3 

GO TO 1IAD0RT ) 

898 

3 

END ; 

899 

2 

IIABORT: 

CALL PUR8EIJ0BIENTRY i 

900 

2 

RETURN ; 

901 

2 

IRICND: /* DISPLAY GROUP OF I/O PORTS •/ 

CALL WITE(6('Re3d '»0)> f 

902 

2 

BO CASE KEY!CASE<e(3;'BN';ESC» i 
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903 3 

904 3 

905 3 

906 3 

907 2 

908 2 

909 2 

910 2 

911 2 

912 2 

913 2 

914 2 

915 2 

916 3 

917 3 

918 3 

919 3 

920 3 

921 2 

922 2 

923 2 

924 2 

925 3 

926 3 

927 4 

928 4 

930 4 

931 4 

932 4 

933 3 

934 3 

935 4 

936 4 

938 4 

939 4 

940 4 

941 3 

942 3 

943 3 

944 3 

945 3 

946 3 

947 3 

948 2 

949 2 

950 3 

951 3 

952 3 

953 3 

954 2 

955 2 

956 2 


CALL WtITE(B( 'Bytes' >0)) ! 

CALL HRITE(K'Hords'fO)) i 
60 TO IIABORT I 
END I 

DATAITYPE * KEY ) 

CALL MtITE(8(' froe'/O)) J 
IF NOT IOPORT (BFROMIADDR) THEN 
60 TO IIABORT ) 

CALL HRITE(8(' to'/O)) J 

IF NOT IOPORT (0TOIADDR) OR NOT LEGALIIOIFROHITO THEN 
•0 TO ItABORT ; 

IF JOBIIDLE THEN 
DO J 

FROHISAVE * FROMIABDR i 
TOISAVE = TOtABDR J 
TYPEISAVE = DATAITYPE i 
CHDISAVE = 'I' t 
END ! 


IRICNDO: 

OUTPUT (DISABLED = FALSE J 
CALL NEHtlOtDISPLAYtLINE('s') ) 
1 = 07 

DO FOREVER f 
IF DATAITYPE = 'D' THEN 


/» GET I/O PORT BYTE VALUE •/ 
/« DISPLAY IT */ 


BYTEISAVE = INPUT (FRONIADDR) J 
IF BTO THEN RETURN ! 

CALL HEX2(BYTEISAVE) l 
INCREMENT = 1 ) 

END i 

ELSE IF DATAITYPE = 'H' THEN 
BO } 

HORDISAVE = INHORB (FRONIADDR) ) /• GET I/O PORT HORD VALUE */ 

IF BTO THEN RETURN i 

CALL HEX4 (HORDISAVE) ) /• DISPLAY IT */ 

INCREMENT * 2 ! 

END ) 

IF COMPLETE OR NOT LEGALIIOPORT (FRONIADDR) THEN 
RETURN } 

1 = 1 + INCREMENT / 

IF ( I AND OFH ) « 0 THEN /» END V LINE •/ 

CALL NEMIIOIDISPLAYILINE ( '=' ) i 
ELSE 

CALL SPACER ) 

END i 


IHICMD: /» I/O PORT HRITE ROUTINE */ 

CALL HRITE(8('Hrite '>0)) ) 

DO CASE KEYICASE (8(3; 'BH' /ESC) ) ) 

CALL HRITE(B('Bstes'»0)) i 
CALL HRITE(0('Hords';O)) ) 

GO TO IIADORT ) 

END i 

DATAITYPE * KEY ) 

CALL HRITE(8(' to'/O)) ) 

IF NOT IOPORT (8FR0NIADDR) THEN 
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957 

2 

80 TO ItABORT J 

958 

2 

CALL CRtLF } 

959 

2 

CALL TOtTERNINATE ) 

960 

2 

OUTPUTtBISABLED = FALSE ) 

961 

2 

CALL NEHtlOtDISPLAYtLINE ( ' > ' ) 1 

942 

2 

BO FOREVER ) 

963 

3 

IF NOT GETHEXU.4) THEN RETURN ) 

965 

3 

IF BATASTYPE « 'H' THEN QUTHORB (FROMtADDR) * KEYWORD ) 

967 

3 

ELSE OUTPUT (FROMtADDR) « HEXtBYTE ) 

968 

3 

IF BTO THEN RETURN J 

970 

3 

CALL BLANK (1) 1 

971 

3 

END ; 

972 

2 

IFtCHD: /» FILL BLOCK OF PORTS »/ 

OUTPUTtBISABLED * FALSE 1 

973 

2 

IF J0B4RUN THEN 

974 

2 

CALL HRITEd(CRiLFi'I/0 '>0)1 1 

975 

2 

CALL HRITEdt'Fill with '>0)) ) 

976 

2 

DO CASE KEYtCASEd(3/'BH'»ESC)) J 

977 

3 

CALL HRITEdfBstt '/0» ) 

978 

3 

CALL HRITE(8('Hord 'iO» t 

979 

3 

60 TO ItABORT 1 

980 

3 

END 1 

981 

2 

BATASTYPE « KEY 1 

982 

2 

CALL HRITE(8('vslu> 'iO» 1 

983 

2 

IF NOT 6ETHEX(1;4) THEN 

984 

2 

GO TO ItABORT 1 

985 

2 

FILLERtDHORD « HEXtDHORD i 

986 

2 

CALL HRITE(I( ; frot',0)) 1 

987 

2 

IF NOT IOPORT (OFROMtADDR) THEN 

988 

2 

GO TO ItABORT 1 

989 

2 

CALL HRITEdt' to'.O)) i 

990 

2 

IF NOT IOPORT (BTOtADUO OR NOT LEGALtlOtFROHtTO THEN 

991 

2 

60 TO ItABORT 1 



/» FILL LOOP »/ 

992 

2 

DO FOREVER ; 

993 

3 

IF BATAtTYPE * 'B' THEN 

994 

3 

DO ) 

995 

4 

OUTPUT (FROMtADDR) « FILLERtBYTE l 

996 

4 

INCREMENT ■ 1 } 

997 

4 

END ; 

998 

3 

ELSE 



DO > 

999 

4 

OUTNORD (FROMtADDR) > FILLERtHORD J 

1000 

4 

INCREMENT » 2 1 

1001 

4 

END ; 

1002 

3 

IF BTO OR COMPLETE THEN 

1003 

3 

RETURN /' 

1004 

3 

END i 

1005 

2 

END ; 


1006 

1 

HtCMD: PROCEDURE) 

/« HELP DISPLAY «/ 

1007 

2 

IF JOBtSETUP THEN 

/i REMOVE ‘H’ CHD FROM JOB BUFFER 

1008 

2 

JOBtBUFFERtINDEX = 

JOBtBUFFERtINDEX - 2 i 

1009 

2 

CALL HRITEdt 
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1010 2 


1011 1 
1012 2 

1013 2 

1014 2 

1015 3 

1016 3 

1017 3 

1018 3 

1019 2 

1020 2 

1021 3 

1022 3 

1023 3 

1024 3 

1025 2 

1026 2 

1027 2 

1028 2 

1029 3 

1030 3 

1031 3 

1032 4 

1033 4 

1034 4 

1035 3 

1036 3 

1037 3 

1038 3 

1039 3 

1040 3 


'Help: 

'.CR.LF, 


'(u> 

8 Job load A run. 

u 3 0 thru 9. selects file 3 10*d * u.'iCR.LFi 

'J(d) 

* Job decade. 

d 3 0 thru 9. selects decade. 'iCR.LFi 

'JE 

s Job edit. 

Views/oodifies/loads/stores Job buffer. ' iCR.LFi 

'JD 

a Job director*. 

Shows titles for selected Job decade.'iCRiLFi 

'I(SP) 

s I/O read rerun. 

Repeat current "IR* setup. '.CRiLFi 

'H(sp) 

= Meaors read rerun. 

Repeat current *HR* setup. '.CR iLFi 

'J(SP) 

= Job rerun. 

Repeat current Job buffer. ' iCR.LFi 

'<SP> 

s Space bar. 

Repeats last rerun ( I(sp)i M(sp)i or J<sr> )'.CRiLFi 

'1 

a D or H 

D(ste) or H(ord).'iCRiLFi 

'IR* 

* I/O read. 

Sets up b*te or word I/O port droup displas.'iCRiLFi 

'IHt 

3 I/O write. 

Repetitive bate or word outputs to selected port.'iCR.LFi 

'IF# 

3 I/O fill. 

Writes bate or word to a block of ports. ' iCR.LFi 

'MW* 

3 Motor* write. 

Repetitive bate or word oeoora writes.'iCR.LFi 

'» 

3 B. Hi D» Pi or A 

B(ate)i W(ord). D(word). P(oinUr). or A(SCII).'iCRiLFi 

'NR» 

3 Me tor* read. 

Sets up bate. word, dwordi pointer, or ASCII duop.' .CR.LF. 

'8 

3 Bi Hi D. or A 

D(ate) . H(ord). D(word). or A(SCII). '.CR.LF. 

'HF8 

3 Heoors fill. 

Date. word, dword. or ASCII striod fill. '.CR.LF. 

'MS 

3 Meoor* substitute. 

Bate scan/nodifa.'iCRiLF. 

'R 

3 Rurts. 

Disrlaas oultibus interrupt counters. '.CR.LF. 

'S 

3 Sedoent. 

Reloads oeoora base redister.'i 

0)) ; 



END ; 



J$CHD : 

PROCEDURE) 

/« JOB SETUP/RUN COMMAND •/ 

DECLARE I BYTE. INDEX HORD ) 



IF EXIT$SETUP THEM 
DO i 

CALL PURGE*JOB$EMTRY J 
CALL WRITE (OCJob '.0)> i 
60 TO JEtCHD l 
END J 

IF JODISETUP THEN /» REMOVE 'J‘ COMMAND FROM JOB DUFFER »/ 

DO i 

JOBfBUFFERIINDEX 3 JODIBUFFERfINDEX - 2 i 
CALL ILLEGAUCND I 
RETURN l 
END ; 

IF KEY = SPACE THEN 

CALL HRITE(8('Job ',0)> ! 

REPEAT: 

IF KEY - SPACE THEN 
DO ; 

CALL HRITE(0('file '»0)> i 
IF EDITtFILEtNUHBER < 100 THIN 
DO i 

CALL CO (ASCII (EDIT$FILEtMIHBER/10) ) J 
CALL CO (ASCII CEBIT#FILE#NUHBER NOD 10)) I 
END ; 

ELSE 

CALL WRITE (§('??' .0)) I 
CALL WRITE (§(' 3 '*0)) ) 

CALL WRITE (8EDITIDUFFER) i 
CHDtSAVE 3 'J' J 
JOBfBUFFERIPTR 3 KDITFBUFFER i 
JOB (BUFFERS INDEX 3 64 I 
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1041 

3 

JOBIRUN ; 

1042 

3 

RETURN i 

1043 

3 

END 1 

1044 

2 

CALL WRITEM'Job '>0)) J 

1045 

2 

IF KEY * 'E' THEN 

1046 

2 

GO TO JE*CHD ) 

1047 

2 

CALL Cl 1 /* EXPECT <sp)i D» E» 

1048 

2 

CALL CAPITALIZED J 

1049 

2 

IF KEY = SPACE THEN 

1050 

2 

60 TO REPEAT } 

1051 

2 

IF KEY*ESC THEN 

1052 

2 

RETURN J 

1053 

2 

JEfCHDt 

IF EXIT*SETUP OR (KEY = 'EM THEN /» JOB i 

1054 

2 

DO ; 

1055 

3 

JOBtIDLE 1 

1056 

3 

CALL WRITE (8('EditorM0)) } 

1057 

3 

SHOWMTEHSi 

CALL WRITE(8(CR>LF>'File = MO)) J 

1058 

3 

IF EDIT*FILE*NUHBER < 100 THEN 

1059 

3 

DO ; 

1060 

4 

CALL CO (ASCII (EDIT»FILE*NUHBER/10» i 

1061 

4 

CALL CO (ASCII (EDIT*FILE*NUHBER NOD 10)) 

1062 

4 

END ; 

1063 

3 

ELSE 

CALL HRITE(B('??MO)) f 

1064 

3 

CALL WRITE (8(CR;LF*'Titl« * MO)) ) 

1065 

3 

CALL HRITE(BEDITIBUFFER) J 

1066 

3 

CALL 6ENERATE*ITEM*INDEXES i 

1067 

3 

IF NITENS » 0 THEN 

1068 

3 

CALL WRITE (6(CR»LF*' 01 »M0)) ! 

1069 

3 

ELSE 

DO : 

1070 

4 

DO I = 1 TO NITENS l 

1071 

5 

CALL HRITE(8(CRfLF/' MO)) 1 

1072 

5 

CALL HEX2(I) ) 

1073 

5 

CALL HRITE(8(' = MO)) i 

1074 

5 

INDEX » ITEMtINDEXd-l) ♦ 1 ) 

1075 

5 

KEY * EBI T*BUFFER ( INDEX) J 

1076 

5 

DO WHILE KEY 0 OFFH t 

1077 

6 

CALL SHWiKEY ! 

1078 

6 

CALL BLANK (1) ) 

1079 

6 

INDEX * INDEX * 1 J 

10B0 

6 

KEY * EDITIBUFFER (INDEX) ! 

1081 

6 

END ) 

1082 

5 

END ; 

1083 

4 

END i 

1084 

3 

SHOWtHENU: 

CALL WRITE (8(CR<LF» 

'Edit mdu : A(ppend) D(elete) E(rs») L(oad) 

1085 

3 

DO FOREVER 1 

1086 

4 

CALL Cl : 

1087 

4 

CALL CAPITALIZEtKEY 1 

108B 

4 

IF KEY=ESC THEN 

1089 

4 

DO 1 

1090 

5 

JOB*BUFFER*INDEX = 64 i 

1091 

5 

RETURN 1 


(ESC>» OR 0-9 */ 
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1092 5 

1093 4 

1094 4 

1095 5 

1094 5 

1097 5 

1098 5 

1099 5 

1100 5 

1101 5 

1102 4 

1103 4 

1104 5 

1105 5 

1104 5 

1107 5 

1108 5 

1109 4 

1110 4 

1111 4 

1112 5 


1113 5 

1114 5 

1115 5 

1114 4 

1117 4 

1118 5 

1119 5 

1120 S 

1121 5 

1122 4 

1123 4 

1124 4 

1125 5 

1124 5 

1127 5 

1128 4 

1129 4 

1130 5 

1131 5 

1132 5 

1133 4 

1134 4 

1135 4 

1134 4 

1137 7 

1138 7 

1139 7 

1140 7 

1141 4 

1142 4 

1143 5 

1144 5 

1145 4 


END i 

IF KEY * 'A' THEN 
DO > 

CALL HRITE(8(CR>LF* 'Appending to buffer - use <cntl C) to terainate.'*0)) ) 
JODtDUFFERtPTR « REDITIBUFFER J 
JOBIBUFFERIINDEX - ITEMtlNDEX (MITEMS) i 
JQBISETUP I 

EDITIFILEttttlHBER = 255 f 
RETURN l 
END ) 

aSE IF KEY * 'D' THEN 
DO ; 

CALL MRITE(R(CR»LF, 'Delete itei nueber (in hex) > '» 0)) I 
IF NOT BETHEXU/2) THEN 

Ml TO CUfllitiTMi ! 

IF HEXIBYTE * 0 OR HEXIBYTE > MITEMS THEN 
DO ; 

CALL HRITE(R(BEL>' out of rande'/O)) > 

60 TO SHOHtHENU t 
END } 

CALL HOVB (GEDITf BUFFER (ITEMtlNDEX(HEXiBYTE) ) » 

REDITIBUFFER (ITENIIMDEX (HEXIBYTE-1) ) , 

1280-ITEN4INDEX (HEXIBYTE) ) I 
EDITIFILEINUHBER < 255 ) 

80 TO SHOHtITENS ) 

END } 

aSE IF KEY * 'E' THEN 
DO ; 

CALL HRITE(8(CR»LFf 'Erase entire buffer ? > '/0)> J 
CALL YESINO ) 

IF KEY * 'Y' THEN 
DO ; 

CALL ERASEIEDITIDUFFER ! 

60 TO SHOHIITEHS J 
END ! 

EDITIFILEINUHBER = 255 ) 

60 TO SHOHtHENU J 
END ; 

aSE IF KEY * 'L' THEN 
DO } 

CALL HRITE(8(CR>LFi'Load Job nueber (0-99 decieal) ) '»0)) / 

IF 6ETHEX(1>2) THEN 
DO ) 

BYTEISAVE = 10 » SHR (HEXIBYTE* 4) I /» CONVERT TO DECIMAL »/ 

HEXIBYTE * BYTEISAVE + (HEXIBYTE AND OFH) i 
IF HEXIBYTE ( 100 THEN 
DO ) 

EDITIFILEINUHBER = HEXIBYTE * 

IF NOT READI251(20»20»EDITIFILEINUNDER, REDITtBUFFER) THEN 
CALL ERASEIEDI T IBUFFER J 
END ; 

ELSE 

CALL HRITE(0(Ba*' out of ran*e'*0)) ! 

END ; 

60 TO SHOHIITEHS ) 

END i 

aSE IF KEY = 'S' THEN 
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1146 4 

1147 5 

1148 5 

1149 5 

1150 6 

1151 6 

1152 6 

1153 6 

1154 7 

1155 7 

1156 7 

1157 6 

1158 6 

1159 5 

1160 5 

1161 4 

1162 4 

1163 5 

1164 5 

1165 5 

1166 6 

1167 6 

1168 6 

1169 5 

1170 5 

1171 4 

1172 4 

1173 3 

1174 2 

1175 2 

1176 3 

1177 3 

1178 3 

1179 3 

1180 3 

1181 3 

1182 3 

1183 3 

1184 2 

1185 2 

1186 3 

1187 3 

1188 3 

1189 4 

1190 4 

1191 4 

1192 4 

1193 4 

1194 4 

1195 4 

1196 4 

1197 3 

1198 2 

1199 2 


DO J 

CALL MHTE(8(CR/LF>'Seve as job nuaber (0-99 deciaal) > SO)) ) 
IF BETHEXU.2) THEN 
DO ; 

BYTESSAVE = 10 • SHR (HEXtBYTEi 4) J /• CONVERT TO DECIMAL */ 
HEXSBYTE - BYTESSAVE ♦ (HEXSBYTE MID OFH) J 
IF HEXSBYTE < 100 THEN 
BO ; 

EBITSFILESNUHBER - HEXSBYTE i 
CALL HR1TEI251 (EBITSFILESNUHBER) ) 

END ; 

ELSE 

CALL MRITE(8(BEL,' out of raaie'/O)) i 
END I 

60 TO SHONSMEHU j 
END t 

aSE IF KEY * 'T' TIEN 
DO I 

CALL MITE (8 (CR/LF; 'Enter title (63 char aax)',CR,LF,'> ',0)) J 
IF KEYSIN THEN 
BO ; 

CALL M0VB(8CHBUF,8EDITSBUFFER<64) J 
EBITSFILESNUHBER « 255 / 

END * 

60 TO SHOHSITEHS I 
EM I 

aSE CALL DEEP J 
EM ; 

END I 

aSE IF KEY >* '0' AND KEY <= '9' THEN /• JOB DECABE SELECT «/ 

BO i 

CALL HRITE(8('decade '>0)1 1 
CALL CO (KEY) J 

CALL HRITE(8('u selected' >0)) I 
FILESDECADE * HEXSKEYSVALUE(KEY) } 

CALL MRITE(8(CR>LF«'Job 'iO)) ) 

KEY « 'B' J 

60 TO JESCHD i /* SHOW BIRECTORY NEXT «/ 

END ) 

aSE IF KEY a 'D' THEN /» JOB DIRECTORY */ 

DO ; 

CALL URITE(8('Birectors for decade '>0)) I 
CALL CO (ASCII (FILESDECADE)) J 
DO I » 0 TO 9 J 
CALL MRITE(0(CR*LF/' ';0)) ! 

CALL CO (ASCI I (FILESDECADE) ) i 
CALL CO (ASCII (D) ) 

CALL NRITE(8(' : 'iO» i 
IF REABS251 ( 1 ,200*FILESDECADE*20«I /0H.OCK) THEN 
CALL HRITE(0BLOCK) i 
asE 
RETURN ! 

END I 
END ; 

asE CALL ILLEGALSCHD I 
END ) 
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1200 1 
1201 2 
1202 2 

1203 2 

1204 2 

1205 2 

1206 3 

1207 3 

1208 3 

1209 3 

1210 3 

1211 3 

1212 3 

1213 3 

1214 3 

1215 3 

1216 3 

1217 3 

1218 2 

1219 1 

1220 2 

1221 2 
1222 2 
1223 2 

1225 2 

1226 2 

1227 2 

1228 2 

1229 3 

1230 3 

1231 3 

1232 2 

1233 2 

1234 3 

1235 3 

1237 3 

1238 2 

1239 2 

1240 2 

1241 2 

1242 3 

1243 3 

1244 3 

1245 4 

1246 4 

1248 4 

1249 4 

1250 5 

1251 5 

1252 5 

1253 5 

1254 5 

1255 5 


RtCND: PROCEDURE ! /* DISPLAY MULTIBUS INTERRUPT COUNTERS •/ 

DECLARE COUNTERtSNAP DWORD; I DYTE 1 
IF NOT J0D4RUN THEN 

CALL HRITEttCRurt activity on Nultibus',0)) J 
CALL CR4LF ! 

DO 1 « 0 TO 7 ; 

CALL HRITE(8('INT';0>) I 
CALL HEXKI) I 
CALL C0(':') I 
DISADLE 1 

COUNTERtSNAP = INTtCOUNTER(I) ! 

ENABLE J 

CALL HEX4 (HIGH (COUNTERISNAP) ) * 

CALL HEX4(L0M(C0UNTERtSNAP)) J 
IF I * 3 THEN 
CALL CRtLF 1 
ELSE 

CALL BLANK (5) ) 

END ! 


END ; 


BACKUP: PROCEDURE I 

DECLARE (I;J;INDEX) HORD I 

CALL WRITE (8 ('Backup current files ? > '#«)> J 

CALL YEStNO J 

IF KEY 0 *Y» THEN RETURN 1 
CALL WRITE (91' All decades ? > >it») i 
CALL YEStNO I 
IF KEY = »Y» THEN 
DO I 

CALL H0VB(8ASCII;BCHBUF;10) i 
NCHAR * 10 I 
END ; 

ELSE IF KEY « »N» THEN 
DO I 

CALL WRITE (0(’ Which decades ? ) »i0)l i 
IF NOT KEYSIN OR NCHAR = 0 THEN RETURN I 
END I 

ELSE RETURN J 

CALL SETH(0>BACKUPtREST0REtBUFFER>32768) I 
INDEX * 0 I 

DO I = 0 TO NCHAR-1 I 
KEY = CHDUF(I) I 
IF LEGALtDECADE (KEY) THEN 
DO J = 0 TO 9 J 

FILEtNUMBER = 10*HEXtKEYtWALUE (KEY) ♦ J I 
IF NOT REABt251(20;20eDOUBLE(FlLEtlHJHBER) iSFlLEtDUFFER) THEN RETURN ! 
IF FILEtDUFFER(65) <> 0 THEN 
DO I 

CALL WRITE (8(CR»LF»» Job file '>0)1 I 
CALL CO(ASCII(FILEtNUMDER / 10)) I 
CALL COCASCII (FILEtNUMBER HOD 10)) I 
CALL WRITE (§C * '»0)) J 
CALL WRITE (SFILEtBUFFER) J 
DIR (FILEtNUMBER). INDEX = INDEX i 
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1256 5 

1257 5 

1258 5 

1259 5 

1260 4 

1261 3 

1262 2 

1263 3 

1264 3 

1265 2 

1266 1 

1267 2 

1268 2 

1269 2 

1270 2 

1272 2 

1273 3 

1274 3 

1275 4 

1276 4 

1277 4 

1278 3 

1279 2 

1280 2 
1281 2 
1282 2 

1283 3 

1284 3 

1285 3 

1286 3 

1287 4 

1288 4 

1289 4 

1290 4 

1291 4 

1292 4 

1293 4 

1294 4 

1295 4 

1296 3 

1297 2 


DIR (FILEtNUHBER) .LENGTH 3 65+FINDB (DFILEtBUFFER (64) ; 0# 12B0-64) ! 
CALL M0VB(8FILEtBUFFER;DINF0 (INDEX) iDIR(FILEtNUMDER) .LENGTH) ! 
INDEX * INDEX ♦ DIR (FILEtNUHBER). LENGTH } 

END ; 

END ; 

END ; 


/« FINAL STEP l FILL HEADER BLOCK HITH ID «/ 
DO I 3 0 TO 31 J 
HDR(I) = 'X251' 1 
END ) 

END } 


RESTORE: PROCEDURE ; 

DECLARE I IYTE ; 

CALL HRITE(8('Restore bubble files ? ) ';0)) 
CALL YEStNO J 

IF KEY 0 'Y' THEN RETURN J 
DO I 3 0 TO 31 ; 

IF HDR(I) 0 'X251' THEN 




?Oq 




bo ; 

CALL NRITE(8(CR;LF;BEL; 

'External backup/restore buffer does not contain restore file.';0)) ) 
RETURN i 
END ) 

END I 

CALL HRITE(8(CR/LF/ 

'Active files will be overwritten. Are sou sure ? ) '<0)) ) 


CALL YEStNO ) 

IF KEY * 'Y' THEN 
DO I * 0 TO 99 # 

CALL SETH(0fDEDITtDUFFERi640) i 
FILE? DUFFER (64) - OFFH } 

IF DIR(I). LENGTH ) 0 THEN 
DO ; 

CALL NRITE(D(CR»LFf 'Job file 'iO)) i 
CALL CO(ASCII(I / 10)) ) 

CALL CO(ASCII(I MOD 10)) ? 

CALL HOVB(DINFO(DIR(I). INDEX) ;8EDITtBUFFERiDIR(I). LENGTH) J 
CALL NRITE<*(' 3 '/0>> i 
CALL HR3TE (DEDITtDUFFER) / 

EDITtFILEtHUMBER 3 I ! 

CALL HRITEt251(I> ) 

END ) 

END ; 

END i 


1298 1 SHOHtHENU: PROCEDURE ) 

1299 2 CALL HRITE(f(CRiLF; 

'HASA/ADFRF XAIDS Maintenance Processor 14 Januars 1987 R. Glover'»CR>LF> 

'Menu: Hein 0-9; J0-J9; JE; JD; I(sr); H(sr); J(sr); <SP); IRD; IRN; IFB; IFH*'» CR; LF; 
' IHD; IHH; HHB; HUH; HRB; IffiH; NRD; MRP; HRA; MFB; KFH; IFD; NS; R; S';0» ) 

1300 2 END i 


1301 1 RESET: /* MAIN PROGRAM «/ 


DISABLE f 


/• DISABLE INTERRUPTS */ 
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1302 1 

CALL SETH(0i0/4094) 1 

/« CLEAR RAH (86/05 RAH 8K BYTES LONG) «/ 

1303 1 

CALL INITIALIZEOINTERRUPTS i 




1304 1 

CALL INITIALIZE4PRINTER 

« 

» 




1305 1 

CALL MOHLOK f 

/• PERFORH BAUB RATE LOCK-OH •/ 


1306 1 

FILEONUHBER * 255 } 





1307 1 

CALL ERASEIEB1T0BUFFER 

• 

/ 




1308 1 

CNBOSAVE * 'H' ) 

/> SET UP REPEAT FOR HRB */ 



1309 1 

OATAITYPE * 'B' J 





1310 1 

RESTART: 






CALL 1NITIALIZE02S1 ) 

/» INITIALIZE SBX251 BUBBLE HEHORY HULTIHOBULE */ 

1311 1 

CALL HRITE(8(CRiLF> 






LF> 






' XX XX 

aa min 

BBBBBBB 

sssssss 

'/CR/LFj 


' XX XX 

AAAA II 

BB 00 

ss ss 

',CR/LF» 


' XX XX 

AA AA II 

DO BB 

ss 

'»CR;LF> 


' XXX 

AA AA II 

OB BB 

sssssss 

'jCRiLFi 


' XX XX 

AAAAAAAAAA II 

BO BB 

ss 

')CR;LF/ 


* XX XX 

AA AA II 

OB BO 

ss ss 

'»CR»LFr 


' XX XX 

AA AA mm 

BBBBBBB 

sssssss 

»/CR,LF; 


1 




'»CRiLF; 


• MMH tom 

aa mm 

NN NN 

TTTTTTT1 

f'»CR/LFi 


' NH HH HH NH 

AAAA II 

NNN NN 

TT 

'»CRiLFi 


’ HH MW NH 

AA AA 11 

HN NH NN 

TT 

'/CRjLFi 


' NH H HH 

AA AA II 

Mi NN NN 

TT 

'»CR;LF/ 


' HH HH 

AAAAAAAAAA II 

Mi Ml Mi 

TT 

'»CR»LF» 


' HH HH 

AA AA II 

uu mill 

nn mn 

TT 

'iCRiLFi 


' HH HH 

AA AA IIIIII 

Mi NN 

TT 

'»CR/LF; 


on ; 





1312 1 

REPEAT: 

/» BISPLAY MENU AGAIN «/ 




CALL SHOHOHEHU i 





1313 1 

NEXT: 

/» PROCESS NEXT COMMAND */ 




OUTPUTOBISABLEB * FALSE 

« 

i 




1314 1 

INCREHENT = 1 ! 





1315 1 

IF JQBORUN THEN 





1316 1 

BO } 





1317 2 

IF JOBOBUFFER ( JOBOBUFFERtINBEX) * OFFH Tie 




1318 2 

JOBOBUFFEROINDEX - JOBttUFFERHNBEX + 1 

1 

/ 



1319 2 

IF J0BI8UFFER ( JOBIBUFFEROINDEX) = 0 Tie 




1320 2 

JIBOIBLE ; 





1321 2 

END ! 





1322 1 

IF NOT JOBSRUH Tie 





1323 1 

CALL CROLF ) 





1324 1 

IF JOBOIBLE THEN 





1325 1 

CALL CQl'.Mi 

/* NORMAL PROMPT CHAR */ 



1326 1 

ELSE IF J0B4SETUP THEN 





1327 1 

00 ; 





1328 2 

CALL C0<'>') i 






1329 2 JOWBUFFER ( JOBiBUFFERIINDEX) = OFFH ! 

1330 2 JOBMUFFEROINBEX - JOBOBUFFEROINBEX ♦ 1 1 

1331 2 END ! 

1332 1 TRY$ AGAIN: 
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10 CASE KEYtCASE(8(22r '0123456789' rESCrSPACEi 'HHIJRS' rCNTLiCtCNTLiBi CNTLSRiCR ) ) l 


1333 

2 

CASCO: 




CALL LOABiJOB ! 


1334 

2 

CASE1 : 




CALL LOABiJOB J 


1335 

2 

CASE2: 




CALL LOABiJOB ) 


1336 

2 

CASE3: 


1337 

1338 

2 

2 

CALL LOABiJOB J 
CASE4I 

CALL LOABiJOB ! 
CASES: 




CALL LOABiJOB i 

1339 

2 

CASE6: 



CALL LOABiJOB } 


1340 

2 

CASE7: 




CALL LOABiJOB / 


1341 

2 

CASES: 




CALL LOABiJOB J 


1342 

2 

CASE9: 




CALL LOABiJOB J 


1343 

2 

CASEiOt 

/« ESC «/ 



bo ; 


1344 

3 

CALL PURGEiJOBiENTRY ! 


1345 

3 

CALL CRfLF ) 


1346 

3 

CALL CRiLF J 


1347 

3 

GO TO RESTART 1 


1348 

3 

END ; 


1349 

2 

CASEll: 

/» BLANK »/ 



DO ; 


1350 

3 

IF JOBiSETUP THEN 


1351 

3 

BO ; 


1352 

4 

CALL PURGEiJOBiENTRY J 


1353 

4 

CALL MRITE(B(BEL»' (stki) 

- illeitl repeat in Job aode'iO)) i 

1354 

4 

end ; 


1355 

3 

ELSE IF CHDiSAVE='H' THEN 


1356 

3 

CALL MiCHD ) 


1357 

3 

ELSE IF CMDiSAVE s 'I' THEN 


1358 

3 

CALL IiCMD / 


1359 

3 

aSE IF CMBiSAVE='J' THEN 


1360 

3 

CALL JiCMD ; 


1361 

3 

END 1 


1362 

2 

CASE12I 

/( MEMORY COMMAND »/ 



CALL MiCHD / 


1363 

2 

CASE13: 

/« HEP COMMAND »/ 



CALL HiCMB i 


1364 

2 

CASE14: 

/» I/O COMMAND •/ 



CAa IiCMD ! 


1365 

2 

CASE 15: 

/» JOB COMMAND «/ 



CAa JiCMD ; 


1366 

2 

CASE16: 

/» RUPT COUNTER DISPLAY »/ 



CAa RiCMD ; 


1367 

2 

CASE17: 

/» CHANGE NEHORY SEGMENT »/ 



DO ; 


1368 

3 

IF JOBiRUN THEN 


1369 

3 

OUTPUT iOISABLED * TRUE i 


1370 

3 

CALL HRITE(8('Current *e«ors settent register : SO)) 1 
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1371 

3 

CALL HEX4 (SEGMENT) 1 


1372 

3 

CALL WRITE (8(CRiLFi'En ter desired setaeat value (0 - FFFF) 

1373 

3 

IF 6ETHEX(1>4) THEN 


1374 

3 

DO i 


1375 

4 

SEGMENT = HEX WORD ! 


1374 

4 

CALL WRITE (8(CR»LFi'Urdated tetors sedaent register : 

1377 

4 

CALL HEX4(SEGMENT) l 


1378 

4 

END ) 


1379 

3 

END ; 


1380 

2 

CASE18I 
BO J 

/* CNTL C */ 

1381 

3 

IF JOBtSETUP THEN 


1382 

3 

CALL JtCHD l 


1383 

3 

ELSE 

60 TO ILLEGAL 1 


1384 

3 

END ; 


1385 

2 

CASE 19: 
DO ; 

/» CNTL B »/ 

1384 

3 

IF JOBtIDLE THEN 

/* OK TO DO BACKUP »/ 

1387 

3 

CALL BACKUP i 


13BB 

3 

ELSE 

60 TO ILLEGAL i 


1389 

3 

END i 


1390 

2 

CASE20: 

BO ; 

/» CNTL R »/ 

1391 

3 

IF JOBtIDLE THEN 

/• OK TO BO RESTORE »/ 

1392 

3 

CALL RESTORE i 


1393 

3 

ELSE 

GO TO ILLEGAL i 


1394 

3 

END i 


1395 

2 

CASE21: 

GO TO REPEAT i 

/» CR »/ 

1394 

2 

END ; 


1397 

1 

GO TO NEXT ! 


1398 

1 

ILLEGAL: 
CALL DEEP ! 


1399 

1 

CALL PURGEtJOBtENTRY 1 


1400 

1 

60 TO TRYtAGAIN i 


1401 

1 

END ! 



MODULE INFORMATION: 

CODE AREA SIZE * 1C7DH 7291D 
CONSTANT AREA SIZE = 11F8H 4400D 

VARIABLE AREA SIZE = OBEOH 3040D 
MAXIMA STACK SIZE » 003AH SBD 
1433 LINES READ 
0 PROGRAM WARNINGS 
0 PROGRAM ERRORS 

DICTIONARY SUMMARY: 
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195KB MEMORY AVAILABLE 
26KB MEMORY USED (1330 
OKB BISK SPACE USE! 

END OF PUN-86 COMPILATION 
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APPENDIX C 


File LP.P86 

The following listing shows the PLM86 source language for the module containing 
the line printer initialization and servicing routines. This module declares PUBLIC 
the following procedures: 

INITIALIZE$ PRINTER a PROCEDURE that initializes the 8255 parallel peripheral 

I/O chip, commands the printer on line, and erases the 
screen image buffer. 

PRINTER$ BUFFER a PROCEDURE with a BYTE argument containing an ASCII 

character which is to be copied into the screen 
image buffer. 

PRINTERS SNAPS HOT a PROCEDURE that synchronously copies the screen image 

buffer into the printer buffer by lines properly 
ordered for printer dump. 

PRINTER? SERVICE a PROCEDURE called frequently that serves as a background 

task to supervise the printer state. 
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iRNX 84 PL/N-B6 V2.7 COMPILATION OF NODULE LP.P84 
OBJECT NODULE PLACED IN LP.OBJ 
COMPILER INVOKED BY: SLANG :PLM86 LP.P84 


♦COMPACT RON OPTIMIZE (3) 

♦TITLE ('NASA/ADFRF XAIDS NAINT PRINTER ROUTINES 14 JAN 1987') 

/» NASA AMES DRYBEN FLIGHT RESEARCH FACILITY R GLOVER »/ 

1 LP.P84: DO 1 

/» EXTERNAL ROUTINES */ 

2 2 WRITE: PROCEDURE (PTR) EXTERNAL! DECLARE PTR POINTER! END! 

52 HEXl: PROCEDURE (VAL) EXTERNAL! DECLARE VAL BYTE! END! 

8 2 HEX2I PROCEDURE (VAL) EXTERNAL! DECLARE VAL BYTE! END) 

/» SBC 84/05 BOARD PROGRAMMABLE PERIPHERAL INTERFACE I/O PORT NAPPING */ 


11 

1 

DECLARE PPIA 

LITERALLY '0C8H' ! 

/» PA0-PA7 8287 (INVERTING) 

»/ 

12 

1 

BECLARE PPIB 

LITERALLY 'OCAH' ! 

/» PB0-PB7 902 (TERMINATOR) 

»/ 

13 

1 

DECLARE PPIC 

LITERALLY 'OCCH' i 

/• PC0-PC3 7408 (NON-INVERTING) */ 

14 

1 

DECLARE PPIFL6 

LITERALLY 'OCEH' ! 

/* PC4-PC7 902 (TERMINATOR) 

1/ 


/§ I/O STATUS FLAGS */ 

15 1 DECLARE PTRIBUSY LITERALLY 'SHR(INPUT(PPIC)i7)' ! 

16 l "ECLARE PTRISELECT LITERALLY 'SHRUNPUT(PPICM)' J 

/» MISCELLANEOUS DECLARATIONS »/ 

17 1 BECLARE TRUE LITERALLY 'OFFH' ) 

18 1 DECLARE FALSE LITERALLY '0' ! 

19 1 BECLARE FOREVER LITERALLY 'WHILE TRUE' ! 

20 1 DECLARE KEY BYTE EXTERNAL ! 

21 1 DECLARE CRTtLINE (24) STRUCTURE (CHAR (80) BYTE) ! 

22 1 DECLARE PTRILINE (24) STRUCTURE (CHAR (80) BYTE) ! 

23 1 DECLARE (ROHjCOLiFFiFLG) BYTE ! 

24 1 DECLARE PTRFLG BYTE J 


/* 

PTRFLG POSSIBLE STATES l 

*/ 

/* 

0 

RESETi DESELECTED! OR OFF 

•/ 

/# 

1 

IDLE AND SELECTED (ON LINE) 

1 / 

/• 

2 

PERFORMING PRINTER FORM FEED 

*/ 

/» 

3 

PERFORMING PRINTER LINE FEEDS 

»/ 

/* 

4 

PERFORMING PRINTER INDENT 

»/ 

/# 

5 

PERFORMING PRINTER LINE DUMP 

*/ 

/» 

6 

PERFORMING PRINTER CR 6 LF 

»/ 


25 1 STROBE: PROCEBURE (CHAR) ! 

26 2 DECLARE CHAR BYTE ! 

27 2 OUTPUT (PPIA) * HOT CHAR ! /« INVERTING DRIVERS ON PORT A «/ 

28 2 DISABLE ! 

29 2 OUTPUT (PPIFLG) s OOH ! /» RESET PORT C BIT 0 (.NOT. STROBE) »/ 

30 2 OUTPUT (PPIFLG) = 01H J /» SET PORT C BIT 0 (REMOVE STROBE) */ 
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31 2 ENABLE < 

32 2 END J 

33 1 INITIALIZEIPRINTER: PROCEBURE PUBLIC i 

34 2 OUTPUT IPPIFL6) = BAH J /* A=OUT(0) B*IH(0) C(7-4)=IN C(3-0)*0UT */ 

35 2 CALL STROBE(UH) I /» 'ON LINE* CODE */ 

34 2 CALL SETBt' MCRT*LIHE>1920) ) 

37 2 RON = 1 J 

38 2 COL = 1 i 

39 2 PTRFLG * 0 I 

40 2 END l 

41 1 PRINTEROBUFFER: PROCEBURE (CHAR) PUBLIC J 

42 2 DECLARE CHAR BYTE ! 

43 2 CHAR » CHAR ANB 7FH l 

44 2 IF CHAR >«»' AND CHAR ( 7FH THEN 

45 2 DO I 

44 3 CRTOLINE (ROH-1). CHAR (COL-1) * CHAR J 

47 3 COL * COL M J 

48 3 IF COL ) 80 THEN /« NEED AUTO LF l CR •/ 

49 3 BO I 

50 4 COL - 1 ; 

51 4 ROU « ROM t 1 i 

52 4 IF RON > 24 THEN RON a 1 J 

54 4 CALL SETB(' '/BCRT$LINE(RON-1)»80) J 

55 4 END ; 

54 3 END I 

57 2 ELSE IF CHAR = OBH THEN /• BS «/ 

50 2 DO 1 

59 3 IF COL > 1 THEN COL * COL - 1 J 

41 3 END 1 

42 2 ELSE IF CHAR » OAH THEN /» LF •/ 

43 2 DO ) 

44 3 RON * ROU ♦ 1 } 

45 3 IF ROH > 24 THEN RON * 1 J 

47 3 CALL SETB(' ' /RCRTILINE (RON-1) >80) } 

48 3 END ) 

49 2 ELSE IF CHAR • OBH THEN /» VT */ 

70 2 BO i 

71 3 IF RON > 1 THEN RON = RON - 1 I 

73 3 END i 

74 2 ELSE IF CHAR « OBH THEN /• CR »/ 

75 2 BO I 

74 3 COL 3 1 # 

77 3 END 1 

78 2 END ) 

79 1 

BO 2 

81 2 

82 2 

83 3 

84 3 

85 4 

84 4 

87 5 

89 5 


PRINTERtSNAPSHQT: PROCEDURE PUBLIC i 
DECLARE (I»J) BYTE } 

IF KEY = 10H THEN /« CNTL P •/ 

BO ; 

IF PTRFLG = 1 THEN /> READY FOR DUMP »/ 

DO ; 

J = RON ♦ 1 J /« J IS FIRST LINE OF SCREEN IHA6E »/ 

DO I * 0 TO 23 J 
IF J * 25 THEN J = 1 J 
CALL N0VB(8CRT4LINE(J-l)i0PTR$LINE(I)fB0) i 
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90 5 J = J ♦ 1 J 

91 5 END 5 

92 4 PTRFLG = 2 ! 

93 4 END / 

94 3 KEY = 0 i 

95 3 END 1 

96 2 END f 


°RiGm A 

poor 


L p AGE Is 

Quality 


97 1 

98 2 

99 2 
101 2 
102 2 

103 3 

104 4 

105 4 

107 4 

108 3 

109 4 

110 4 

111 3 


113 4 

114 5 

115 5 

116 5 


118 4 

119 4 

120 4 


122 4 

124 4 

125 4 

126 4 

127 4 

128 5 

129 5 

130 5 

131 5 

132 4 

133 3 

134 4 

135 4 

136 4 

137 4 

13B 5 

139 5 

140 5 

141 ' 


PRINTER6SERVICE! PROCEDURE PUBLIC J 
DECLARE (INDEX/LINE) BYTE f 
IF NOT PTR6SELECT THEN PTRFLG = 0 ) 

IF NOT PTR6BUSY THEN 
DO CASE PTRFLG HOD 7 J 
RESET: 

BO ; 

FF6FLG » TRUE i 
IF PTRISELECT THEN PTRFLG * 1 
END i 
IDLE: 

DO ; 

RETURN i 
END ; 

FORMFEED! 

do ; 

IF FFtFLG THEN /* NEED FF EVERY OTHER PASS »/ 

DO ; 

CALL STROBE(OCH) J 
FFOFLG = FALSE i 
END ; 

ELSE 

FF6FLG = TRUE i 
INDEX * o ; 

PTRFLG = 3 } /» LINEFEEDS */ 

END ; 

LINEFEEDS: 

DO ; 

IF INDEX < 6 THEN CALL STRODE (OAH) 1 
ELSE CALL STROBE (ODH) J 
INDEX * INDEX ♦ 1 ) 

IF INDEX > 6 THEN 
DO ; 

LINE = 0 i 
INDEX * 0 ; 

PTRFLG = 4 f /» INDENT */ 

END ; 

END } 

INDENT! 

DO ; 

CALL STROBE!' ') J 
INDEX = INDEX + 1 i 
IF INDEX > 16 THEN 
DO ; 

INDEX * 0 i 

PTRFLG = 5 / /i LINEIDUHP */ 

END ; 

END i 


142 < LJNE6DUHP: 
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DO > 


143 

4 


CALL STR0BE(PTR6UNE(LIHE).CHAR(INBEX)) 1 

144 

4 


INDEX » INDEX M J 


145 

4 


IF INDEX ) 79 THEN 

/• END OF LINE «/ 

146 

4 


DO ) 


147 

5 


INDEX « o ; 


148 

5 


PTRFLS * 6 t 

/• CR6LF «/ 

149 

5 


END ) 


150 

4 


END ; 


151 

3 

CR4LF: 





DO CASE INDEX HOD 3 J 


152 

4 


CRi 





DO ; 


153 

5 


CALL STRODE (ODH) ) 


154 

5 


INDEX * 1 ) 


155 

5 


END J 


156 

4 


LF» 





DO ; 


157 

5 


CALL STROBE(OAH) J 


158 

5 


INDEX ■ 2 ) 


159 

5 


END 1 


160 

4 


HEMLINE: 





DO ; 


161 

5 


LINE » LINE * 1 / 


162 

5 


IF LINE > 23 THEN 

/• IDLE */ 

163 

5 


PTRFLG * 1 1 


164 

5 


ELSE 

/« INBENT */ 




BO ; 


165 

6 


INDEX s 0 i 


166 

6 


PTRFLS = 4 } 


167 

6 


END ; 


168 

5 


END ; 


169 

4 


END ; 


170 

3 

END 

• 

/ 


171 

2 

ENB J 



172 

1 

END ; 



MOBILE INFORMATION: 



COBE AREA SIZE 

* 029FH 671D 



CONSTANT AREA SIZE = OOOOH OD 

VARIABLE AREA SIZE * 0F08H 3848D 

MAXIMUM STACK SIZE * 0008H 88 

202 LINES READ 
0 PROGRAM WARNINGS 
0 PROGRAM ERRORS 

BICTIONARY SUNNARY: 

195KB MEMORY AVAILABLE 
6KB MEMORY USES (32) 

0KB BISK SPACE USEB 

ENB OF PL/N-84 COMPILATION 
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APPENDIX D 


File RUPTS.P86 

i 

i 

I The following listing shows the PLM86 source language for the module containing 

the interrupt initialization and servicing routines. This module declares PUBLIC 
the following variables and procedure: 

INT$COUNTER an array of eight DWORD counters which tally the 

interrupts from the Multibus. 

NMI$COUNTER a DWORD counter which tallies the number of bus 

timeout interrupts. 

UNKNOWN$COUNTER a DWORD counter which tallies extraneous interrupts. 

BTO$FLAG a BYTE state variable which signals the occurrence of 

a nonmaskable bus timeout interrupt. 

INITIALI ZE$ INTERRUPTS a PROCEDURE which initializes the 8259 interrupt 

controller chip, sets up 256 interrupt vectors, 
and unmasks and enables all interrupts. 
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■LI-36 COMPILER MSA/ADFRF X All'S HAINT INTERRUPT ROUTINES 14 Jan 1987 


iRNX 86 PL/N-86 V2.7 COMPILATION OF NODULE RU?TSJ>86 
OBJECT MODULE PLACED IN RUPTS.OBJ 
COMPILER INVOKED BY: :LAN6:rlaB6 RUPTS.P86 


6C0HPACT ROM NOINTVECTOR OPTIMIZE (3) 

tTITLEt'NASA/ADFRF XAIDS HAINT INTERRUPT ROUTINES 14 Jan 1987’) 

/* NASA AMES DRYDEN FLIGHT RESEARCH FACILITY R GLOVER */ 

1 RUPTS.P86: DO I 

/« SBC 86/05 BOARD I/O PORT MAPPING </ 

2 1 DECLARE PICFLG LITERALLY 'OCOH* 1 /» PROGRAMMABLE INTERRUPT CONTROLLER «/ 

3 1 DECLARE PICHSK LITERALLY '0C2H' ) 

/( MISCELLANEOUS DECLARATIONS */ 

4 1 DECLARE VECTOR (256) POINTER AT (OOOOOOH) ) 

5 1 DECLARE NPBTO BYTE AT (0C701EH) i /• PERPRO HAINT DTO FLAG «/ 

6 1 DECLARE INTtCOUHTER (8) DHORB PUBLIC i /* MULTIBUS INTERRUPT TALLY COUNTERS »/ 

7 1 DECLARE NHItCOUNTER DHORB PUBLIC 1 /* BEADHAN TIMER INTERRUPT COUNTER »/ 

8 1 DECLARE UNKNOHNtCOUNTER DWORD PUBLIC ) /» REMAINING RUPT TYPES SHARE COUNTER •/ 

9 1 DECLARE BTOtFLAG BYTE PUBLIC < /* DUS TIMEOUT FLAG »/ 


/> FOLLOWING ARE INTERRUPT TALLY ROUTINES </ 

10 1 UNKNONNSCOUNTERBINCREMENT : PROCEDURE INTERRIffT 0 1 

11 2 UNKNOHNtCOUNTER * UNKNOHNtCOUNTER ♦ 1 ) 

12 2 END ) 

13 1 NMItCOUNTERtINCREMENT : PROCEDURE INTERRUPT 2 i 

14 2 NHItCOUNTER - NHItCOUNTER ♦ 1 i 

15 2 BTOtFLABiHPBTO * OFFH } /» SET BTO FLAG LOCALLY 6 IN PERPRO t/ 

16 2 QUTMORD (PICFLS) » 40H i /« CLEAR FLIP-FLOP (0CH2 NO-OP) >/ 

17 2 END ) 

18 1 EOIS PROCEDURE) /» END OF INTERRUPT »/ 

19 2 OUTPUT (PICFLG) * 20H ) 

20 2 END ) 

21 1 INTOtCOUNTERtINCREHENT: PROCEDURE INTERRUPT 32 ) 

22 2 INTtCOUNTER(O) - INTtCOUNTER(O) ♦ 1 i 

23 2 CALL EOI ) 

24 2 END ) 

25 1 INTltCOUNTERtlNCREMENTl PROCEDURE INTERRUPT 33 / 

26 2 INTtCOUNTER(l) * INTtCOUNTER(l) ♦ 1 J 

27 2 CALL EOI i 

28 2 END J 

29 1 INT2tC0UNTERtINCREMENT: PROCEDURE INTERRUPT 34 ) 

30 2 INT SCOUNTER (2) = INTtC0UNTER(2) ♦ 1 i 
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31 2 CALL EOI 5 

32 2 E» J 


33 1 INT3AC0UHTERS INCREMENT » PROCEIURE INTERRUPT 35 ) 

34 2 INTtC0UNTER(3) = INT$C0UNTER(3) ♦ 1 1 

35 2 CALL EOI J 

34 2 END i 

37 1 INT4tCOUHTERtINCREHENTs PROCEDURE INTERRUPT 34 I 

38 2 INT f COUNTER (4) * INT$COUNTER(4) ♦ 1 } 

39 2 CALL EOI J 

40 2 END J 


ORIGINAL 
OJE POOR 


41 1 INT5ICOUNTERIIHCRENENT s PROCEDURE INTERRUPT 37 i 

42 2 INT (COUNTER (S) - INTtCOUNTERtt) ♦ 1 i 

43 2 CALL EOI I 

44 2 END I 


45 1 INTAtCOUHTERtINCREKENT: PROCEDURE INTERRUPT 38 ) 

44 2 1 NT (COUNTER (A) » INTtCOUNTER(A) + 1 J 

47 2 CALL EOI J 

48 2 END j 


49 1 INT7»C0UNTER$INCREHENT: PROCEDURE INTERRUPT 39 J 

50 2 IKT$CQUNTER(7) « INTtCOUNTERtt) ♦ 1 J 

51 2 CALL EOI J 

52 2 END * 


53 1 INITI AL1ZEIINTERRUPTS i PROCEDURE PUDUC ) 

54 2 DECLARE I BYTE J 

55 2 DISABLE 1 /» DISABLE INTERRUPTS •/ 

/« LOADING RUPT VECTORS FOLLOWS */ 

54 2 DO I - 0 TO 255 } 

57 3 VECTOR (I) - INTERRUPTtPTR (UNKNOHNSCQUNTERtINCREHENT) ! 

58 3 END » 

59 2 VECTOR (02) » INTERRUPTtPTR (NMI tCQUNTERtINCREHENT ) i 

40 2 VECTOR (32) * INTERRUPTtPTR (INTOtCOUNTERtlNCREIOIT) I 

41 2 VECTOR (33) « INTERRUPTtPTR(INTltCOUNTERtlNCREHENT) i 

42 2 VECTOR (34) = INTERRUPTtPTR (INT2tCQUNTERtINCREHEHT) J 

43 2 VECTOR (35) = INTERRUPTtPTR(INT3tC0UNTERtINCRENENT) i 

44 2 VECTOR (34) * INTERRUPTtPTR (IMT4«0UNTERtINCRENENT) i 

45 2 VECTOR (37) = INTERRUPTtPTR (INTStCOUNTERtINCRENENT) I 

44 2 VECTOR (38) = INTERRUPTtPTR (INT4tC0UKTERtINCRENENT) J 

47 2 VECTOR (39) = INTERRUPTtPTR(INT7tC0UNTERtINCRENENT) # 


48 2 OUTPUT (PICFLG) = 000100118 ) 

49 2 OUTPUT (PICHSK) = 32 ) 

70 2 OUTPUT (PICHSK) * 00001101D I 

71 2 OUTPUT (PICHSK) * 000000008 i 

72 2 OUTUORD (PICFLG) » 40H 1 

73 2 ENABLE ) 

74 2 END ) 


/« EDGE TRIGGER# SINGLE PIC */ 

/» VECTORED TO TYPES 32 THRU 39 */ 

/» NORMAL NESTING# SUFFERED MASTER# NORN EOI •/ 
/» UNHASK ALL RUPTS »/ 

/» CLEAR FLIP-FLOP (0CH2 NO-OP) */ 

/« ENADLE RUPTS »/ 


’ p AGE 13 

Quality 
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75 1 END 1 


NODULE INFORMATION: 

CODE AREA SIZE = 0280H 640D 

CONSTANT AREA SIZE = 0008H 8D 

VARIABLE AREA SIZE * 002AH 42D 

MAXIMUM STACK SIZE = 0022H 34D 

110 LINES READ 
0 PROGRAM WARNINGS 
0 PROGRAM ERRORS 

DICTIONARY SUMMARY: 

195KB MEMORY AVAILABLE 
4KB MEMORY USED (2Z> 

OKB DISK SPACE USED 

END OF PL/H-86 COMPILATION 
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APPENDIX E 


Pile MBM.P86 

The following listing shows the PLM86 source language for the module containing 
the SBX251 magnetic bubble memory (MBM) initialization and servicing routines. This 
module declares PUBLIC the following procedures: 

INITIALIZES 2 51 a PROCEDURE that initializes the SBX251 MBM multimodule 

READ$251 a PROCEDURE typed BYTE that returns the success/fail status 

of SBX251 read operations. Three arguments are required: 
WORD that specifies the number of 64 byte blocks to be 
read, a WORD that specifies the initial block number, and 
a POINTER that identifies the destination buffer 

WRITES 251 a PROCEDURE that copies the contents of EDIT$BUFFER to the 

SBX251 MBM. A BYTE argument is required that specifies the 
number of the file to receive the 20 blocks 
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iRHX 86 PL/M-B4 V2.7 COMPILATION OF NODULE HBH.P86 
OBJECT NODULE PLACED IN HBH.OBJ 
COMPILER INVOKED BY: :LAN6:rla86 NBM.P86 


♦COMPACT RON OPTIHIZE(3) 

♦TITLE < ' HASA/ADFRF XAIDS HAINT NBH ROUTINES 14 Jm 1987') 

/* NASA AMES DRYDEN FLIGHT RESEARCH FACILITY R GLOVER */ 
/» SBX2S1 Magnetic Bubble Meeors Multiaodule Routines •/ 


1 HBN.P66: BO ) 


/* EXTERNAL ROUTINES •/ 

2 2 WRITE: PROCEDURE (PTR) EXTERNAL) DECLARE PTR POINTER) END) 

5 2 HEX1 : PROCEDURE (VAL) EXTERNAL) DECLARE VAL BYTE) END) 

8 2 102: PROCEDURE (VAL) EXTERNAL) DECLARE VAL BYTE) END) 


/» SBC 86/OS BOARD I/O PORT HAPPING »/ 

11 1 DECLARE MBMDAT LITERALLY '080H' ) /» MAGNETIC BUBBLE MEMORY «/ 

12 1 DECLARE HBNCHD LITERALLY '082H' ) 


/» I/O STATUS FLAGS »/ 


13 1 

14 1 

15 1 

16 1 

17 1 

18 1 

19 1 

20 1 


DECLARE HBHIBUSY 
DECLARE HBMtOPtCOMPLETE 
DECLARE HBHtOPtFAlL 
DECLARE HBHITIHINGIERROR 
DECLARE HBHtCORRECTABLEOERROR 
DECLARE HBHIUNCORREETABLEIERROR 
DECLARE MBHIPARITYIERROR 
DECLARE HBHIFIFQIREABY 


LITERALLY 'SHR(INPUT(MBMCHB)»7>' i 
LITERALLY 'SHR (INPUT (HBNCHD) / 6)' J 
LITERALLY 'SHRUNPUT (HBHCHB). 5)' ) 
LITERALLY 'SHRUNPUT (HBNCHD). 4)' J 
LITERALLY 'SHRUNPUT (HBNCHD). 3)' i 
LITERALLY 'SHRUNPUT (HBHCMD). 2)' ) 
LITERALLY ' SHRUNPUT (HBNCHD)il)' ) 
LITERALLY ' INPUT (HBHCMD) ' ) 


/» MISCELLANEOUS DECLARATIONS */ 


21 1 DECLARE TRUE LITERALLY 'OFFH' ) 

22 1 DECLARE FALSE LITERALLY '0' ) 

23 1 DECLARE BLOCK (64) BYTE ) /« BUBBLE MEMORY TEMP STORAGE >/ 

24 1 DECLARE LASTI251IC0HNANB BYTE ) /« BUBBLE MEMORY LAST COMMAND »/ 

25 1 DECLARE BYTEICOUNTER HQRB ) /• BUBBLE MEMORY BATA TRANSFER COUNTER »/ 

26 1 DECLARE TINEOUTICOUNTER WORD J /> BUBBLE MEMORY BATA TRANSFER DEABHAN */ 

27 1 DECLARE EBITIBUFFER (1280) BYTE EXTERNAL ) /* USED BY JE COMMAND */ 


28 1 KBHt ERROR: PROCEDURE (MSGIPTR) I 

29 2 DECLARE MSGIPTR POINTER ) 

30 2 CALL HRITE(B(' NBH cad '.0)) ! 

31 2 CALL HEX1 (LAST425UC0MHAND) ) 

32 2 CALL WRITE (§(' error : '.07H.0)) ) 

33 2 CALL WRITE (MSGIPTR) ) 

34 2 END ) 

35 1 C0NHANDI251: PROCEDURE (CUD) BYTE ) 

36 2 DECLARE CMD BYTE ) 
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37 2 LAST i2Sl SCOHHAND * CMD 5 

38 2 OUTPUT (HBHCHD) * 000100008 OR ( CMD AND 000011118 ) J 

39 2 TIHEOUTtCOUNTER = 0 ! 

40 2 DO WHILE NOT HBHtBUSY 1 

41 3 TIHEOUTtCOUNTER = TIMEOUT tCOUNTER - 1 I 

42 3 IF TIMEOUT {COUNTER = 0 THEN 

43 3 DO i 

44 4 CALL HBMtERROR (0 ( 'coaaand accept tiaeout '>0)) J 

45 4 RETURN FALSE l 

44 4 END > 

47 3 END I 

48 2 RETURN TRUE > 

49 2 END J 

50 1 EXECUTEt251 > PROCEDURE BYTE J 

51 2 TIHEOUTtCOUNTER * 0 I 

52 2 DO WHILE HDH$DUSY ) 

53 3 TIHEOUTtCOUNTER > TIHEOUTtCOUNTER - 1 i 

54 3 IF TIHEOUTtCOUNTER = 0 THEN 

55 3 DO I 

54 4 CALL NBHtERROR(0('coaaaad execute tiaeout '>0)) J 

57 4 RETURN FALSE i 

58 4 END ) 

59 3 END ) 

40 2 RETURN TRUE J 

41 2 END I 

42 1 C0HPLETEI251! PROCEDURE BYTE f 

43 2 TIHEOUTtCOUNTER * 0 5 

44 2 BO WHILE NOT HBHtOPtCOHPLETE J 

45 3 IF HBNtOPtFAIL THEN 

44 3 DO I 

47 4 CALL HBMtERROR (8('op fail status >, 0)) 5 

48 4 CALL HEX2(IMPUT (HBHCHD) ) J 

49 4 RETURN FALSE I 

70 4 END ; 

71 3 TIHEOUTtCOUNTER * TIHEOUTtCOUNTER • 1 l 

72 3 IF TIHEOUTtCOUNTER * 0 THEN 

73 3 DO I 

74 4 CALL HBHtERRORteCop coaelete tiaeout ';0» ) 

75 4 RETURN FALSE I 

74 4 END J 

77 3 END I 

78 2 RETURN TRt£ } 

79 2 END J 

80 1 SETUPS251: PROCEDURE (NBLOCKS/START) i 

81 2 DECLARE (NBLOCKS, START) WORD I 

82 2 OUTPUT (HBHCHD) = 00011101B ) /» RESET FIFO */ 

83 2 CALL TIME (14) J 

84 2 OUTPUT (HBHCHD) = 00011U1B ) /« SOFTWARE RESET «/ 

85 2 CALL TINE(IA) I 

84 2 OUTPUT (HBHCHD) * 000010UB J /» START WITH BLOCK LENGTH REG «/ 

87 2 CALL TINE (14) i 

88 2 OUTPUT (HBHDAT) = LOM (NBLOCKS) ) 

89 2 OUTPUT (HBHDAT) > 00010000B OR < HIGH (NBLOCKS) M«B 00000111B ) ! 

90 2 OUTPUT (HBHDAT) = 00100000B I /« ENABLE RCD ONLY «/ 


ORIGINAL PAGE IS 
OF POOR QUALITY 
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91 2 

92 2 

93 2 

94 2 

95 l 

94 2 

97 2 

98 2 
100 2 
102 2 

104 2 

105 2 

104 2 

108 2 
110 2 
112 2 

113 2 

114 1 

115 2 

114 2 

117 2 

118 2 

119 2 

121 2 

122 3 

123 3 

124 4 

125 4 

124 4 

127 4 

128 3 

129 4 

130 4 

131 4 

132 5 

133 5 

134 5 

135 4 

134 3 

137 2 
139 2 

141 2 

142 2 

143 2 

144 2 

145 1 

144 2 

147 2 

148 2 

149 2 

150 2 
152 2 


OUTPUT (NMOAT) = LOM(START) } 

OUTPUT (HBHDAT) - HIGH(START) AND 000001118 1 
BYTEOCOUHTER - 44 • NBIOCKS 5 
END i 

INITIALIZERS PROCEDURE PUBLIC J 

CALL HRITE(0(13> 10) 'Bubble Moors initialization ....'*0)> i 
CALL TINE (50*14) 1 

IF NOT C0MAND025K9) THEN RETURN > /* ABORT COMMAND </ 

IF NOT EXECUTER THEN RETURN i 
IF NOT COMPLETER THEN RETURN i 
CALL TIHEUOOtlA) ) 

CALL SETUP$251(0>0) I 

IF NOT CONHANDR(l) THEN RETURN i /« INITIALIZE COMMAND */ 

IF NOT EXECUTEI251 THEN RETURN f 

IF NOT COMPLETER THEN RETURN I 

CALL HRITE(B(' coaclete.'iO)) I 
END ) 

READRs PROCEDURE (NBLOCKS/START/PTR) BYTE PUBLIC i 
DECLARE (NBLOCKS/STARTrINDEX) HORDi PTR POINTER) BUFFER BASED PTR (*) BYTE i 
TIHEOUTtCOUNTER = 0 i 
INDEX » 0 ; 

CALL SETUPR(NBLOCKS)START) ) 

IF NOT COMMANDO 251 (2) THEN RETURN FALSE I 
BO WHILE BYTEOCOUNTER (> 0 ) 

IF NBM0FIF04READY THEN 
BO J 

BUFFER (INDEX) - INPUT (HBHDAT) ) 

INDEX = INDEX ♦ 1 J 
BYTEOCOUNTER = BYTEOCOUNTER - 1 5 
END ; 

ELSE 

DO ) 

TIMEOUTOCOUNTER = TIMEOUTOCOUNTER - 1 J 
IF TIHEOUTOCOUNTER * 0 THEN 
DO } 

CALL MBHtERR0R<8(’read FIFO tiaeout ';0» ) 

GO TO ABORT l 
END ) 

END ) 

END i 

IF NOT EXECUTER THEN 60 TO ABORT ) 

IF NOT COMPLETER THEN GO TO ABORT ) 

RETURN TRUE ) 

ABORT: 

CALL INITIALIZE0251 i 
RETURN FALSE ) 

END ! 

HRITER: PROCEDURE (FILE) PUBLIC ) 

DECLARE FILE BYTE) INDEX WORD ) 

TIHEOUTOCOUNTER * 0 5 
INDEX > 0 ) 

CALL SETUP0251 (20) 20*FILE) ) 

IF NOT C0MMANDI251 (3) THEN RETURN J 
DO WHILE BYTEICOUNTER 0 9/ 
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NODULE INFORMATION: 

CODE AREA SIZE = 028AH 650B 

CONSTANT AREA SIZE = 00C1H 193D 

VARIABLE AREA SIZE = 0049H 73D 

MAXIMUM STACK SIZE = 0022H 34D 

191 LINES READ 
0 PROGRAM WARNINGS 
0 PROGRAM ERRORS 

DICTIONARY SUMMARY: 

195KB MEMORY AVAILABLE 
4KB MEMORY USED (32) 

OKB DISK SPACE USED 

END OF PL/M-86 COMPILATION 
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TABLE 1 * — TOP-LEVEL COMMAND KEYSTROKES 


Keystroke 

0-9 

(esc) 

( space ) 

M 

H 

I 

J 

R 

S 

(cntl C) 
(cntl B) 
(cntl R) 
(return) 


Function invoked 

Executes MBM job file d0-d9 from current decade d 
Reinitializes MBM and shows signon 

Repeats last J(space), M(space), or I(space) rerun 

Invokes memory servicing routine 

Shows help page 

Invokes I/O servicing routine 

Invokes job servicing routine 

Displays the interrupt tally counters 

Selects new memory segment 

Exits job buffer append mode 

Invokes MBM backup routine 

Invokes MBM restore routine 

Shows command menu 
















Display 1. Initial signon. 


Itenu: Hein 0-9/ J0-J9/ JE/ JD; I<sp>/ H<sp>/ J<sp>/ <$p>/ IRB/ IRM; IFB/ IFH/ 
IHBr IHH> HUB/ HMUi NRB/ HRH/ HRD» HRPi MM/ NFB/ NFHi NFD/ NS/ R/ S 

.Help: 


<u> 

= Job lD»d t run. 

u a 0 thru 9 i selects file = 10*d * u. 

J<d> 

- Job decade. 

d = 0 thru 9i selects decade. 

JE 

= Job edit. 

Views/eodifies/loads/stores job buffer. 

Jl 

* Job director*. 

Shows titles for selected Job decade. 

Ksp) 

= I/O read rerun. 

Repeat current *IR" setup. 

H<*p> 

* Heeory read rerun. 

Repeat current "HR* setup. 

J<SP> 

= Job rerun. 

Repeat current job buffer. 

<W> 

= Space bar. 

Repeats last rerun ( I<srb Mtsrb or J<sp> ) 

* 

* B or M 

B(yte) or H(ord). 

IRI 

= I/O read. 

Sets up bate or word I/O port sroup display. 

IMt 

= I/O write. 

Repetitive byte or word outputs to selected port. 

IFI 

* I/O fill. 

Hrites byte or word to a block of ports. 

Mtt 

* Heeory write. 

Repetitive byte or word aeaory writes. 

* 

= Br Mi Df P/ or A 

B(yte)i H(ord)i DCword )i P(ointer)/ or A(SCII). 

HR# 

= Heeory read. 

Sets up bstei word; dwordi po inter; or ASCII duar. 

( 

= Bj Hi Di or A 

B(yte) i H(ord); D(word); or A(SCII). 

HF? 

3 Heeory fill. 

Byte; word/ dword/ or ASCII str ins fill. 

NS 

• Heeory substitute. 

Byte scan/aodify. 

R 

■ Rurts. 

Displays eultibus interrupt counters. 

S 

= Seseent. 

Reloads eeaory base register. 



Display 2. Help page . 


ORIGINAL PAGE IS 
OF POOR QUALITY 
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.Jab decade Ou selected 
Job Directory for decade 0 

00 : Scan PERPRO RAH 

01 i Display PERPRO ruets : 0 / li It clock# 4/ xat/ rcvi 7 

02 : Display PERPRO stack 

03 : Display PERPRO rroSraa version 

04 : 

05 : Send LP aessaSe "Line priater interface operational.’ 

06 : Place PERPRO in RESET node. 

07 s Place PERPRO in RHX86 1/0 eode. 

08 : Place PERPRO in XAIDS 1/0 eode. 

09 « Display TCU reds s see; aim hour/ day/ aonthi year/ status 
.Job Editor 

File = ?? 

Title * 

01 * 

Edit aenu J A(ppend) D(etete) E(rase) L(oad) S(ave) T(itle) <esc>-Exit 
load Job nuaber (0-99 deciaal) ) 0 
File = 00 

Title * Scan PERPRO RAH 

01 = S C 0 0 0 <CR> 

02 * H R B 4 0 0 0 <CR> 7 F F F <CR> 

Edit aenu : A(ppend) B(elete) E(rase) L(oad) S(ave) T(itle) <esc)=Exit 


% 1% 








Display 3. Job file examination * 




i 



.Jab file 00 


C000:4000 = 
C0OOI4O1O * 


C 000:4020 « 
C0OOU030 = 
C000J4O4O * 
C000U0S0 • 
COOOS40AO » 
C000:4070 * 


C000I4080 * 
C000 : 4090 * 


= Scan PERPRO RAH 


00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 


Job aborted 


.Job file 01 * lisrlasi PERPRO rurts : 


C000:7310 * 00 00 00 00 00 00 00 00 
0000)7320 * 00 00 00 00 04 FA 05 00 


.Job file 02 * Disrli* PERPRO stack 
COOOS7FCO « 00 00 00 00 00 00 00 00 

C000I7FB0 * 00 00 00 00 00 00 00 00 

C000:7FE0 » 5F 04 20 74 00 20 84 OC 

C000)7FF0 * 5F 04 37 04 37 04 1C 70 

.Job file 03 * lisrlas PERPRO rrofrao 


00 

00 

oo 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 




p h 

p 2 j 

1 cl 

lock / 4j 

p xat/ 

rev/ 

00 

00 

00 

00 

5F 

02 

15 

00 

85 

37 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

5F 

04 

4B 

40 

2F 

0E 

0D 

05 

2F 

0E 

37 

04 

A5 

00 

84 

00 

29 

0A 

42 

0D 


version 


0000:7280 « PERPR0-II VI. 4 27 FEB 1985 R GLOVER 



.Job file 04 


Is eerts. 



Display 4. Job file executions = 
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.Job Ed: tai 
File * 00 

Title * Scan PERPRQ RAN 

01 = S C 0 0 0 ICR) 

02 = H R B 4 0 0 0 (CR> 7 F F F <CR> 

Edit aenu : A(prend) Blelete) E(rase) L(oad) Slave) T(it)e) lBSc)=Exit 
Erase entire buffer ? > Y 
File = ?? 

Title * 

01 * 

Edit aenu i A(prend) D(elete) E(rase) L(oad> S(ave) Tlitle) <esc> s Exit 
Appending to buffer - use <cntl C) to teninate. 

) Cur rent aetors sesaent register : C400 

Enter desired sesaent value (0 - FFFF) ) C400 

Ur dated actors sesaent resister : C400 

>Heaors Read Bates froa aeaors addr 0 to aetors addr F 

C400:0000 = 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 

>Job Editor 

File = ?? 

Title « 

01 * S C 4 0 0 <CR> 

02 = M R B 0 <CR> F <CR> 

Edit aenu t A(prend) Blelete) E(rase) L(oad) S(ave) T(itie) (esc>=Ej(it 


Display 5 . Editing job buffer. 


Edit aenu : A(ppend) D(elpte) E(rase) L(oad) Slave) T(itie) < esc >=Ex i t 
Appending to buffer - use <cnti C) to tereinate. 

Current aeaors sesaent register : C400 

Enter desired sesaent value (0 - FFFF) ) C400 

Updated aetors sesaent register J C400 

)Heaors Read Bates froe aeaors addr 0 to aetors addr F 

0400:0000 * 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 

}Job Editor 

File = ?? 

Title = 

01 = S C 4 0 0 <CR> 

02 = H R B 0 <CR> F <CR) 

Edit tenu : A(ppend) Blelete) E(rase) LCoad) Slave) Tlitle) (esc)-Exit 
.Job file ?? = 


C400 : 0000 

= 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

.Job file 

?? 

a 
















C40010000 

s 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

.Job file 

?? 

2 
















0400:0000 

X 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

.Job file 

?? 

a 
















0400:0000 

s 

09 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

.Job file 

?? 

= 
















0400:0000 

s 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 


Display 6. Executing job buffer 



.Job Editor 
File * r> 

Title * Seen of NFB/ NRB. MS/ 


and HRA 


01 * S C * 0 0 (CR> 

02 = M F B 0 <CR> 0 <CR> F (CR> 

03 = N R B 0 <CR> F (CR) 

44 * N F 8 A A <CR> 4 <CR> B (CR) 

05 * H R 8 0 <CR> F (CR) 

04 * N S 4 (CR> 4 7 <CR> 7 2 (CR> & 5 <CR> 4 5 (CR) 7 4 (CR) 6 9 (CR) 
> 4 7 (CR) 7 3 (CR) (ESC) 

07 * M R B 0 (CR) F (CR) 

08 - H R A 4 (CR) 

Edit mm) i A(rrend) B(elete) E(rasa) L(oad) S(ave) T(itle) (esc)*Exit 
Job file ?? = Dew of NFB/ NRB) NS; and NRA 
Meaors Fill with Bate value 0 froa Maori addr 0 to Maori addr F 
C400i0000 * 04 40 00 00 00 00 04 04 00 04 00 00 00 00 00 00 

Neaon Fill with Bite value AA froa aeaori addr 4 to aeaori addr B 


C400s0000 * 00 00 00 00 AA AA AA AA AA AA AA AA 
C400i4044>AA>47 C400:0005=AA>72 C400:0004=AA>45 
C404:0008-AA)74 C400:0009*AA)49 C400:000A*AA)4E 
C400 i 0400*00)73 C404i440D>00) 

C 400 ) 0000 * 00 00 00 00 47 72 45 45 74 49 4E 47 



C400I0004 * 6mtin« 


00 00 00 00 
C400:0007*AA)45 
C400:0O0B*AA)47 

73 00 00 00 



Display 7. Miscellaneous memory operations • 


i 



74 49 4E 47 73 00 00 00 


Which decades ? ) 0 2 o 


:400:0004*AA)47 C400!0005=AA>72 C400:0004*AA)45 C400:0007*AA)45 

C400:0048*AA>74 C400i0009«AA>49 C400:000A*AA)4E C4O0:0OOB*AA>47 

C400:000c=00>73 C400:000B*00) 

C400 :0000 * 00 00 00 00 47 72 45 45 
C404I0004 * Breetinls 

.Backup current files ? ) i All decades ? ) n 
Job file 00 * Scan PERPR0 RAN 

Job file 01 * Bisrlai PERPR0 rurts : 0> li 2/ clock i 4i xat/ rcvi 7 

Job file 02 * Disrlas PERPR0 stack 

Job file 03 * Bisrlai PERPRQ rrosrae version 

Job file 05 * Send LP aessale 'Line printer interface operational.' 

Job file 04 * Place PERPR0 ia RESET Mde. 

Job file 07 * Place PERPR0 in RHX84 1/0 node. 

Job file 08 * Place PERPR0 in XAIDS 1/0 node. 

Job file 09 - Bisrlai TCU rels t sao ain/ hour/ dai) nooth; sear; status 

Job file 20 * Scan CEMPR0 RAN 

Job file 21 * Scan Nasal ink LAN RAN 

Job file 22 * Scan IEEE 488 controller RAM 

Job file 25 * Scan IEEE 486 CMtroller 1/0 ports 

Job file 24 * Read NSS status 1/0 port 

Job file 27 * Scan Xslosics tare controller 1/0 ports 

Job file 40 * Bisrlai CCU 41 1/0 ports t status/ USART rcvr data. 

Job file 41 * Bisrlai CCU 12 1/0 ports > stilus/ IISART rcvr data. 


Display 8. MBM backup operation . 
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M5A/ASFRF XA1DS Maintenance Processor 14 January 19B7 R. £ I over 
Menu! Hein. 0-9. J0-J9. JE. JB> I<sr>. Ksr>» J(sr>» <sr>. IRB. IRK. IFB. IFU. 

1HB. 1HH. HUB. HUM. HUB. HRN. HD. HP. HA. MF1. MFH. HD. HS. R. S 
.Job decade 2u selected 
Job Birectors for decade 2 

20 t Scan CENPRO RAH 

21 : Scan Dedal ink LAM RAH 

22 i Scan IEEE 488 control ler RAH 

23 : 

24 i 

25 : Scan IEEE 488 controller 1/0 rorts 

26 i Read HSS status I/O rort 

27 : Scan Xy todies tare controller 1/0 rorts 

28 i 

29 : 

.Job file 25 « Scan IEEE 488 controller I/O rorts 

I/O 4880 » FF »A 9C FF FF 43 12 FF F0 FF FF FF FF 00 FF FF 

I/O 4890 * 00 00 00 00 FE FE 00 00 00 00 7F 7F FE FE FE FE 

.Job file 26 » Read HSS status I/O rort 

I/O 0101 » 07 

.Job file 27 * Scan Xy todies tare controller I/O ports 
I/O 4720 - 00 00 00 00 00 00 


Display 9 


I/O read examples 



1. Report No. 

NASA TM- 100406 


2. Government Accession No. 


4. Title and Subtitle 

Concept of a Programmable Maintenance Processor 
Applicable to Multiprocessing Systems 
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February 1988 


6. Performing Organization Code 
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Richard D. Glover 


8. Performing Organization Report No. 
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16. Abstract 


A programmable maintenance processor concept applicable to multiproc- 
essing systems has been developed at the NASA Ames Research Center’s Dryden 
Flight Research Facility. This stand-alone-processor concept is intended 
to provide support for system and application software testing as well as 
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